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INTRODUCTION 



The purpose of this book is to provide a detailed listing 
of the ROM contents for the Commodore 64 microcomputer. 
For programmers working in assembler language, or those 
wanting a more complete understanding of BASIC, this 
should prove to be very useful. 

Since there are two ROM areas, A000-BFFF and EOOO-FFFF, 
which can be disable'd separately, the listing is in two 
distinct parts, each with its own cross-reference listing. 

The columns in the listing, from left to right, are: 



1. 


address 


2. 


object code 


3. 


line number 


4. 


label 


5. 


instruction mnemonic 


6. 


operand 


7. 


comments 



All labels have a four (two for zero page) hexadecimal 

character suffix representing the actual address': 

The single character prefixes have the following meanings: 

B - Branch label 
J - Jump label 
S - Subroutine label 
T - Table (data) label 
W - Word label 
Z - Zero page label 

X - External label (address outside of zero page 
and current ROM area) 

The mnemonics are standard MOS Technology. Operands may be 
symbolic, immediate hexadecimal (preceded by a dollars sign) 
or low/high order immediate (preceded by </>) . 

At the end of each of the two listings you will find a 
cross-reference. For each label, listed in alphabetical 
order, you will find the label value and each line 
number where the label was used. 



II 





1 




.L 






2 


.H 






3 ; 

4 • 


CBM-64-Part One 


0000 


5 ; 

6 ZOO 


= 


$00 


0001 


7 Z01 


- 


$01 




8 




bit 


(output) 




9 




bit 


1 (output) 




10 




bit 


2 (output) 




11 




bit 


3 (output) 




12 




bit 


4 (input) 




13 




bit 


5 (output) 




14 




bit 


6 unused 




15 




bit 


7 unused 


0002 


16 Z02 


= 


$02 


0003 


17 Z03 


= 


$03 


0004 


18 Z04 


- 


$04 


0007 


19 Z07 


= 


$07 


0008 


20 Z08 


- 


$08 


0009 


21 Z09 


= 


$09 


OOOB 


22 ZOB 


- 


$0B 


OOOC 


23 ZOC 


- 


$0C 


OOOD 


24 ZOD 


= 


$0D 


OOOE 


25 ZOE 


- 


$0E 


OOOF 


26 ZOF 


= 


$0F 


0010 


27 Z10 


= 


$10 


0011 


28 Zll 


- 


$11 


0012 


29 Z12 


« 


$12 


0013 


30 Z13 


- 


$13 


0014 


31 Z14 


= 


$14 


0015 


32 Z15 


= 


$15 


0016 


33 Z16 


= 


$16 


0017 


34 Z17 


- 


$17 


0018 


35 Z18 


- 


$18 


0019 


36 Z19 


= 


$19 


0022 


37 Z22 


= 


$22 


0023 


38 Z23 


= 


$23 


0024 


39 Z24 


- 


$24 


0025 


40 Z25 


- 


$25 


0026 


41 Z26 


= 


$26 


0027 


42 Z27 


- 


$27 


0028 


43 Z28 


- 


$28 


0029 


44 Z29 


- 


$29 


002B 


45 Z2B 


= 


$2B 


002C 


46 Z2C 


- 


$2C 


002D 


47 Z2D 


" 


$2D 


002E 


48 Z2E 


- 


$2E 


002F 


49 Z2F 


= 


$2F 


0030 


50 Z30 


= 


$30 


0031 


51 Z31 


= 


$31 


0032 


52 Z32 


- 


$32 


0033 


53 Z33 


= 


$33 


0034 


54 Z34 


= 


$34 


0035 


55 Z35 


= 


$35 


0036 


56 Z36 


= 


$36 


0037 


57 Z37 


- 


$37 


0038 


58 Z38 


= 


$38 


0039 


59 


Z39 


- 


$39 



;6510 data direction register 
;6510 I/O register 
0-RAM at $A0OO-$BFFF (BASIC area) 
0=RAM at $E00O-$EFFF (Kernal area) 
0=access CRT shapes at $D000-$DFFF 
cassette write line 
cassette sense line 
cassette motor control 



dummy address for offset 
fixed-float vector 
high byte of same 
separator/terminator/work field 
terminator/AMD work field 
character position for TAB 
length BASIC line/AND-OR switch/* DIM 
reference/declaraction flag 
type: FF=string, 00=numeric 
type: 80=integer, 00=floating point 
DATA/string/error flag 
subscript/fn flag/integers-arrays flag 
;0=input, $40=get , $98-read 
<=> operator 
CMD file number 
integer value (work) 
high byte of same 
string descriptor stack index 
previous string descriptor stack index 
high byte of same 
bottom of string descriptor stack 
utility pointer area 



product for multiplication 



pointer to start of BASIC 
;high byte of same 
pointer start of variables 
high byte of same 
pointer to start of arrays 
high byte of same 
pointer to end of arrays 
high byte of same 

pointer to start of string storage 
high byte of same 
utility string pointer 
;high byte of same 
pointer to limit of memory 
high byte of same 
current BASIC line number 



003A 


60 Z3A 


= 


$3A 


003 B 


61 Z3B 


= 


$3B 


003C 


62 Z3C 


= 


$3C 


003D 


63 Z3D 


= 


$3D 


003E 


64 Z3E 


= 


$3E 


003F 


65 Z3F 


= 


$3F 


0040 


66 Z40 


= 


$40 


0041 


67 Z41 


- 


$41 


0042 


68 Z42 


= 


$42 


0043 


69 Z43 


= 


$43 


0044 


70 Z44 


= 


$44 


0045 


71 Z45 


= 


$45 


0046 


72 Z46 


= 


$46 


0047 


-73 zm 


« 


$47 


0048 


74 Z48 


- 


$48 


0049 


75 Z49 


=. 


$49 


004A 


76 Z4A 


= 


$4A 


004B 


77 Z4B 


= 


$4B 


004C 


78 Z4C 


= 


$4C 


004D 


79 Z4D 


= 


$4D 


004E 


80 Z4E 


= 


$4E 


004F 


81 Z4F 


- 


$4F 


0050 


82 Z50 


- 


$50 


0051 


83 Z51 


= 


$51 


0053 


84 Z53 


= 


$53 


0055 


85 Z55 


= 


$55 


0056 


86 Z56 


= 


$56 


0057 


87 Z57 


= 


$57 


0058 


88 Z58 


= 


$58 


0059 


89 Z59 


= 


$59 


005A 


90 Z5A 


- 


$5A 


005B 


91 Z5B 


= 


$5B 


005C 


92 Z5C 


- 


$5C 


005D 


93 Z5D 


- 


$5D 


005E 


94 Z5E 


» 


$5E 


005F 


95 Z5F 


= 


$5F 


0060 


96 Z60 


> 


$60 


0061 


97 Z61 


- 


$61 


0062 


98 Z62 


= 


$62 


0063 


99 Z63 


= 


$63 


0064 


100 Z64 


=. 


$64 


0065 


101 Z65 


= 


$65 


0066 


102 Z66 


- 


$66 


0067 


103 Z67 


. 


$67 


0068 


104 Z68 


- 


$68 


0069 


105 Z69 


- 


$69 


006A 


106 Z6A 


- 


$6A 


006B 


107 Z6B 


= 


$6B 


006C 


108 Z6C 


- 


$6C 


006D 


109 Z6D 


=. 


$6D 


006E 


110 Z6E 


= 


$6E 


006F 


111 Z6F 


m 


$6F 


0070 


112 Z70 


- 


$70 


0071 


113 Z71 


m 


$71 


0072 


114 Z72 


» 


$72 


007A 


115 Z7A 


m 


$7A 


007B 


116 Z7B 


= 


$7B 



high byte of same 

previous BASIC line number 

high byte of same 

pointer to BASIC statement for C0NT 

high byte of same 

current DATA line number 

high byte of same 

current DATA address 

high byte of same 

temporary read pointer 

high byte of same 

current variable name 

second byte of same 

current variable address 

high byte of same 

variable pointer for FOR/NEXT 

high byte of same 

save area 

high byte of same 

comparison symbol accumulator 

misc. work area 



misc. numeric work area 



floating point accu # 1 - exponent 
flp # 1 - mantissa 



flp # 1 - sign 
saved sign of flp accu 
flp accu t 1 padding 
flp accu # 2 thru Z6E 



;sign comparison accu #1 vs accu # 

;work pointer/guard bit 

; output index 

;high byte of same 

; current character address 

;high byte of same 



0054 
0073 
0079 
0080 
0100 
0101 
0102 
0103 
0104 
01FE 
01FF 
0200 



0300 

0302 

0304 

0306 

0308 

030A 

0310 

0314 

0316 

0318 

031 A 

031C 

03 IE 

0320 

0322 

0324 

0326 

0328 

032A 

032C 

032E 

0330 

0332 

033C 
033C 
03FC 
0400 
07E8 
0800 



118 X0054 

119 X0073 

120 X0079 

121 X0080 

122 X0100 

123 X0101 

124 X0102 

125 X0103 

126 X0104 

127 X01FE 

128 X01FF 

129 X0200 

130 ; 

131 ;0pera 

132 ; 

133 X0300 

134 X03O2 

135 X0304 

136 XO306 

137 X0308 

138 X030A 

139 X0310 

140 W0314 

141 W0316 

142 W0318 

143 W031A 

144 W031C 

145 W031E 

146 W0320 

147 W0322 

148 W0324 
Ui W032« 

150 W0328 

151 W032A 

152 W032C 

153 W032E 

154 W0330 

155 W0332 

156 ; 
157 
158 
159 
160 
161 
162 



$54 

$73 

$79 

$80 

$0100 

$0101 

$0102 

$0103 

$0104 

$01FE 

$01FF 

$0200 



JMP vector for functions 

get next character 

get current character 

check for numeric character 

bottom of stack 

work area for flp to string conversion 



line number for line in input buffer 
high byte of same 
BASIC input buffer 



ting System vector table 



$0300 
$0302 
$0304 
$0306 
$0308 
$030A 
$0310 
$0314 
$0316 
$0318 
$031A 
$031C 
$031E 
$0320 
$0322 
$0324 
= $0326 
$0328 
$032A 
$032C 
$032E 
$0330 
$0332 

.OR $33C 

.DS 192 

.DS 4 

.DS 1000 

.DS 24 

.DS $8800 



;error message link, std value = $E38B 

; BASIC warm start vector, std = $A483 

;crunch BASIC tokens, std - $A57C 

; print tokens vector, std value - $A71A 

; execute stmt vector, std value - $A7E4 

;get arithmetic element, std - $AE86 

;USR JMP vector, std value - $B248 

;IRQ vector, std value - $EA31 

;BRK vector, std value = $FE66 

;NMI vector, std value = $FE47 

;OPEN vector, std value ■ $F34A 

;CL0SE vector, std value " $F291 

;set input vector, std value = $F20E 

;set output vector, std value ■ $F250 

jrestore I/O vector, std value = $F333 

;INPUT vector, std value = $F157 

; OUTPUT vector, std value = $F1CA 

;test Stop Key vector, std value - $F6ED 

;GET vector, std value » $F13E 

; close files and channels, std - $F32F 

; unused vector, std value » $FE66 (BRK) 

;Load RAM vector, std value - $F4A5 

;Save RAM vector, std value » $F5ED 



; cassette buffer 



; video RAM 

; sprite pointers 

; standard BASIC text area 



9FEA 

EOOO 

E043 

E097 

ElOC 

E112 

E118 

E11E 

E124 

E12A 

E156 

E165 

E168 

E1BE 

E1C7 

E264 

E26B 

E2B4 

E30E 

E37B 

E386 

E394 

FF90 

FFB7 

FFCC 

FFDB 

FFDE 

FFE1 

FFE7 

FFFO 



164 X9FEA = 

165 XEOOO - 

166 XE043 - 

167 HE097 = 

168 XEIOC = 

169 XE112 = 

170 XE118 - 

171 XE11E = 

172 XE124 = 

173 WE12A = 

174 WE156 = 

175 WE165 = 

176 WE168 = 

177 WE1BE - 

178 WE1C7 = 

179 WE264 = 

180 WE26B = 

181 WE2B4 = 

182 WE30E = 

183 WE37B = 

184 XE386 = 

185 WE394 = 

186 XFF90 - 

187 XFFB7 - 

188 XFFCC - 

189 XFFDB = 

190 XFFDE = 

191 XFFE1 - 

192 XFFE7 - 

193 XFFFO - 



$9FEA ;address to access function jump table 

$EOO0 ; continuation of RND routine 

$E043 ; compute odd degrees for SIN and ATN 

$E097 ;RND command 

$E10C ; output a character 

$E112 ;input a character 

$E118 ;set output device 

$E11E ;set input device 

$E124 ;get a character from current device 

$E12A ;SYS command 

$E156 ;SAVE command 

$E165 ; VERIFY command 

$E168 ;L0AD command 

$E1BE ;OPEN command 

$E1C7 ;CLOSE command 

$E264 ;COS command 

$E26B ;SIN command 

$E2B4 ;TAN command 

$E30E ;ATN command 

$E37B ;Warm Start entry 

$E386 ; print message READY 

$E394 ; RESET routine 

$FF90 ; control kernal messages 

$FFB7 ;read I/O status word 

$FFCC ; res tore I/O devices to default 

$FFDB ;set real time clock 

$FFDE ;read real time clock 

$FFE1 ; check Stop key 

$FFE7 ; Close all channels and files 

$FFF0 ;Read/Set XY cursor position 



AOOO 




195 


.OR 


$A000 


,■-- 


AOOO 


94E3 


196 


.W 


WE394 ; 


RESET address 


A002 


7BE3 


197 
198 ; 


.w 


WE37B ; 


Warm Start address 






199 , 


program Identifier ( 


not tested) 






200 ; 








A004 


43424D 


201 
202 


.BY 


'C.'B.'M.'B 


,-A,'S,'I,'C 






203 


address 


table for BASIC commands 






204 


address 


- 1 used since routines reache 






205 








AOOC 


30A8 


206 TAOOC .W 


WA831-1 ; 


END 


AOOE 


41A7 


207 


.W 


WA742-1 ; 


FOR 


AOIO 


1DAD 


208 


.W 


WAD1E-1 ; 


NEXT 


A012 


F7A8 


209 


.w 


WA8F8-1 ; 


DATA 


A014 


A4AB 


210 


.w 


WABA5-1 ; 


INPUT* 


A016 


BEAB 


211 


.w 


WABBF-1 ; 


INPUT 


A018 


80BO 


212 


.w 


WB081-1 


DIM 


AOIA 


05AC 


213 


.w 


WAC06-1 


READ 


AOIC 


A4A9 


214 


.w 


WA9A5-1 


LET 


AOIE 


9FA8 


215 


.w 


WA8A0-1 


GOTO 


A020 


70A8 


216 


.w 


WA871-1 


RUN 


A022 


27A9 


217 


.w 


WA928-1 


IF 


A024 


1CA8 


218 


.w 


WA81D-1 


RESTORE 


A026 


82A8 


219 


.w 


WA883-1 


GOSUB 


A028 


D1A8 


220 


.w 


WA8D2-1 


RETURN 


A02A 3AA9 


221 


.w 


WA93B-1 


REM 


A02C 


2EA8 


222 


.w 


WA82F-1 


STOP 


A02E 


4AA9 


223 


.w 


WA94B-1 


ON 


A030 


2CB8 


224 


.w 


WB82D-1 


.WAIT 


A032 


67E1 


225 


.w 


WE168-1 


;L0AD 


A034 


55E1 


226 


.w 


WE156-1 


;SAVE 


A036 


64E1 


227 


.w 


WE165-1 


; VERIFY 


A038 


B2B3 


228 


.w 


WB3B3-1 


;DEF 


A03A 


23B8 


229 


.w 


WB824-1 


;P0KE 


A03C 


7FAA 


230 


.w 


WAA80-1 


; PRINT* 


A03E 


9FAA 


231 


.w 


WAAA0-1 


; PRINT 


A040 


56A8 


232 


.w 


WA857-1 


;C0NT 


A042 


9BA6 


233 


.w 


WA69C-1 


;LIST 


A044 


5DA6 


234 


.w 


WA65E-1 


;CLR 


A046 


85AA 


235 


.w 


WAA86-1 


;CMD 


A048 


29E1 


236 


.w 


WE12A-1 


;SYS 


A04A BDE1 


237 


.w 


WE1BE-1 


;OPEN 


A04C 


C6E1 


238 


.w 


WE1C7-1 


; CLOSE 


A04E 


7AAB 


239 


.w 


WAB7B-1 


;GET 


A050 


41A6 


240 


.w 


WA642-1 


;NEW 





242 


;address 


table for 


BASIC functions 




243 


> 






A052 39BC 


244 


.W 


WBC39 


;SGN 


A054 CCBC 


245 


.W 


WBCCC 


;INT 


A056 58BC 


246 


.w 


WBC58 


;ABS 


A058 1003 


247 


.w 


X0310 


;USR 


A05A 7DB3 


248 


.w 


WB37D 


;FRE 


A05C 9EB3 


249 


.w 


WB39E 


;P0S 


A05E 71BF 


250 


.w 


WBF71 


;SQR 


A060 97E0 


251 


.w 


WE097 


;RND 


A062 EAB9 


252 


.w 


WB9EA 


;L0G 


A064 EDBF 


253 


.w 


WBFED 


;EXP 


A066 64E2 


254 


.w 


WE264 


;C0S 


A068 6BE2 


255 


.w 


WE26B 


;SIN 


A06A B4E2 


256 


.w 


WE2B4 


;TAN 


A06C 0EE3 


257 


.w 


WE30E 


;ATN 


A06E 0DB8 


258 


.w 


WB80D 


;PEEK 


A070 7CB7 


259 


.w 


WB77C 


;LEN 


A072 65B4 


260 


.w 


WB465 


;STR$ 


A074 ADB7 


261 


.w 


WB7AD 


;VAL 


A076 8BB7 


262 


.w 


WB78B 


;ASC 


A078 ECB6 


263 


.w 


WB6EC 


;CHR$ 


A07A 00B7 


264 


.w 


WB700 


;LEFT$ 


A07C 2CB7 


265 


.w 


WB72C 


;R1GHT$ 


A07E 37B7 


266 
267 


.w 


WB737 


;MID$ 




268 


; table of 


priorities and addresses 




269 


;for diadic operators 




270 








A080 79 


271 ' 


rA080 .BY 


$79 




A081 69B8 


272 
273 


.W 

» 


UB86A-1 


;plus 


A083 79 


274 


.BY 


$79 




A084 52B8 


275 
276 


.W 

» 


WB853-1 


; minus 


A086 7B 


277 


.BY 


$7B 




A087 2ABA 


278 
279 


.W 

> 


WBA2B-1 


; times 


A089 7B 


280 


.BY 


$7B 




A08A 11BB 


281 
282 : 


.W 


WBB12-1 


; divided by 


A08C 7F 


283 


.BY 


$7F 




A08D 7ABF 


284 
285 ; 


.W 


WBF7B-1 


; raise to power 


A08F 50 


286 


.BY 


$50 




A090 E8AF 


287 
288 ; 


.W 


WAFE9-1 


; logical AND 


A092 46 


289 


.BY 


$46 




A093 E5AF 


290 
291 ; 


.W 


WAFE6-1 


; logical OR 


A095 7D 


292 


.BY 


$7D 




A096 B3BF 


293 
294 ; 


.W 


WBFB4-1 


;monadic minus 


A098 5A 


295 


.BY 


$5A 




A099 D3AE 


296 
297 ; 


.W 


WAED4-1 


;monadlc NOT 


A09B 64 


298 


.BY 


$64 




A09C 15B0 


299 


.W 


WB016-1 


;> - < 



A09E 

A0A1 

AOA4 

AOA8 

AOAC 

AOB2 

A0B7 

AOBA 

AOBE 

AOC1 

AOC5 

AOC8 

AOCA 

AOD1 

A0D6 

AODC 

AODF 

AOE3 

AOE5 

A0E9 

AOED 

AOF1 

AOF7 

AOFA 

AOFE 

A104 

A109 

AlOD 

Alll 

A114 

A117 

AHA 

A11E 

A123 

A126 



454EC4 

464FD2 

4E4558 

444154 

494E50 

494E50 

4449CD 

524541 

4C45D4 

474F54 

5255CE 

49C6 

524553 

474F53 

524554 

5245CD 

53544F 

4FCE 

574149 

4C4F41 

534156 

564552 

4445C6 

504F4B 

505249 

505249 

434F4E 

4C4953 

434CD2 

434DC4 

5359D3 

4F5045 

434C4F 

4745D4 

4E45D7 



301 ; table of keywords 

302 ;same sequence as address table TAOOC 

303 ; 

304 TA09E .BY 'E,'N,'D+$80 

305 .BY 'F,'0,'R+$80 

306 .BY 'N,'E,'X > 'T+$80 

307 .BY 'D,-A,-T,'A+$80 

308 -BY 'I,'N,'P,'U,'T,'#+$80 

309 .BY -I.'N/P.'U.'T+SSO 

310 .BY 'D,'I,'W-$80 

311 .BY 'R,'E,'A,'W-$80 

312 .BY 'L,'E,'T+$80 

313 .BY 'G,'0,'T,'0+$80 

314 .BY 'R,'U,'N+$80 

315 .BY 'I,'F+$80 

316 .BY 'R,'E,'S,'T,'0 > 'R,'E+$80 

317 .BY 'G,'0,'S,'U,'B+$80 

318 .BY 'R,'E,'T,'U,'R,'N+$80 

319 .BY 'R,'E,'W-$80 

320 .BY 'S.'T.'O.'P+SSO 

321 .BY '0,'N+$80 

322 .BY -W,'A,'I,'T+$80 

323 .BY -L,'0,'A,'D+$80 

324 .BY 'S,'A,'V,-E+$80 

325 .BY -V,'E,'R,'I,'F,-Y+$80 

326 .BY 'D,'E,'F+$80 

327 .BY -p,'0,'K,'E+$80 

328 .BY 'P,'R,'I,'N,'T,'#+$80 

329 .BY 'P,'R,'I,'N,'T+S80 

330 .BY 'C,'0,'N,'T+$80 

331 .BY 'L,'I,'S,'T+$80 

332 .BY 'C,'L,'R+$80 

333 -BY 'C,'M,'IH-$80 

334 .BY 'S,'Y,'S+$80 

335 .BY '0,'P,'E,'N+$80 

336 .BY 'C,'L,'0,'S,'E+$80 

337 .BY 'G,'E,'T+$80 

338 .BY 'N,'E,'W-$80 



A129 

A12D 

A12F 

A131 

A135 

A139 

A13C 

A140 

A141 

A142 

A143 

A144 

A145 

A148 

A14A 

A14B 

A14C 

A14D 

A150 

A153 

A156 

A159 

A15C 

A15F 

A162 

A165 

A168 

A16B 

A16E 

A171 

A174 

A177 

A17B 

A17E 

A182 

A185 

A188 

A18C 

A191 

A197 



544142 

54CF 

46CE 

535043 

544845 

4E4FD4 

535445 

AB 

AD 

AA 

AF 

DE 

414EC4 

4FD2 

BE 

BD 

BC 

5347CE 

494ED4 

4142D3 

5553D2 

4652C5 

504FD3 

535 1D2 

524EC4 

4C4FC7 

4558D0 

434FD3 

5349CE 

5441CE 

4154CE 

504545 

4C45CE 

535452 

5641CC 

4153C3 

434852 

4C4546 

524947 

4D4944 



A19B 47CF 
A19D 00 



340 ; 

341 ; 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 

382 ; 

383 ;o 

384 ; 
385 
386 



table of functions 

.BY 'T,'A,'B,'(+$80 

.BY 'T,'0+$80 

.BY 'F,'N+$80 

.BY 'S,'P,'C,'(+$80 

.BY 'T,'H,'E,'W-$80 

.BY 'N,'0,'T+$80 

.BY 'S,'T,'E,'P+$80 

.BY '++$80 

.BY '-+$80 

.BY '*+$80 

.BY '/+$80 

.BY $DE ; exponent sign 

.BY 'A,'N,'I>+$80 

•BY '0,'R+$80 

.BY '>+$80 

.BY '=+$80 

.BY '<+$80 

.BY 'S,'G,'N+$80 

.BY 'I,'N,'T+$80 

.BY 'A,'B,'S+$80 

.BY 'U,'S,'R+$80 

.BY 'F,'R,'E+$80 

.BY 'P,'0,'S+$80 

■BY 'S,'Q,'R+$80 

.BY 'R,'N,'D+$80 

.BY 'L,'0,'G+$80 

.BY 'E,'X,'P+$80 

.BY 'C,'0,'S+$80 

.BY 'S,'I,'»+$80 

.BY 'I,'A,'»+$80 

.BY 'A,'T,'»+$80 

.BY 'P,'E,'E,'K+$80 

.BY 'L,'E,'N+$80 

.BY 'S,'T,'R,'$+$80 

.BY 'V,'A,'L+$80 

.BY 'A,'S,'C+$80 

.BY 'C,'H,'R,'$+$80 

.BY 'L,'E,'F,'T,'$+$80 

.BY 'R,'I,'G,'H,'T,'$+$80 

.BY 'M,'I,'D,'$+$80 

ther commands 

.BY 'G,'O+$80 

.BY $00 ;end of keywords 



A19E 

MAC 

A1B5 

A1C2 

A1D0 

A1DB 

A1E2 

A1FO 

A1FF 

A20C 

A210 

A21F 

A225 

A231 

A235 

A23B 

A24A 

A24F 

A25A 

A261 

A26A 

A272 

A27F 

A287 

A290 

A29D 

A2AA 

A2B5 

A2BA 

A2C8 

A2D5 

A2E4 

A2ED 

A2F9 

A300 

A30E 

A315 

A3 IE 

A324 



544F4F 

46494C 

46494C 

46494C 

444556 

505245 

4E4F54 

4E4F54 

4D4953 

4E414D 

494C4C 

4E554D 

4E4558 

20464F 

53594E 

524554 

474F53 

4F5554 

494C4C 

205155 

4F5645 

4F5554 

554E44 

535441 

424144 

524544 

444956 

205A45 

494C4C 

545950 

535452 

46494C 

464F52 

434F4D 

43414E 

554E44 

204655 

564552 

4C4F41 



388 ; error 

389 ; 

390 TA19E 

391 TA1AC 

392 TA1B5 

393 TA1C2 

394 TA1D0 
395 

396 TA1E2 

397 TA1F0 

398 TA1FF 
399 

400 TA210 

401 

402 TA225 

403 

404 TA235 

405 TA23B 
406 

407 TA24F 

408 TA25A 
409 

410 TA26A 

411 TA272 

412 TA27F 
413 

414 TA290 

415 TA29D 

416 TA2AA 
417 

418 TA2BA 

419 TA2C8 

420 TA2D5 

421 TA2E4 

422 TA2ED 
423 

424 TA300 

425 TA30E 
426 

427 TA31E 

428 TA324 



messages 

.BY -T.-O.'O,' ,'M,'A,'N,'Y,' ,-F,'I,'L,-E,'S+$80 

.BY -F.'I.'L.-E,' ,'0,'P,'E,'tH-$80 

.BY 'F,-I,'L,'E,- .-N.'O.'T,' .-O.'P.'E.'N+SSO 

.BY 'F.'I.'L.'E,' ,'N,-0,-T,- .'F.'O.'U.'N.'W-SSO 

.BY 'D,'E,'V,'I,'C,'E,' .'N.'O.'T,' 

.BY 'P,'R,'E,'S,'E,'N,'T+$80 

.BY 'N.'O.'T,' ,'I,'N,'P,'U,'T,' .'F.'I.'L, E+$80 

.BY -N.'O.'T,' ,-0,-U,-T,'P,'n,-T,- ,'F,'I,'L,'E+$80 

.BY 'M,'I,'S,'S,'I,'N,'G,' ,'F,'I,'L,'E,' 

.BY 'N,'A,'M,'E+$80 

.BY 'I,-L,'L,'E,'G,'A,'L,' .'D.'E.'V ,'I ,'C,'E,' 

.BY 'N,'U,'M,'B,'E,'R+$80 

.BY 'N.'E.'X.'T,' ,-W,'I,'I,'H,-0,-U,-T 

.BY ' ,'F,'0,'R+$80 

.BY 'S,'Y,'N,'T,'A,'X+$80 

.BY -R,'E,-T,'U,'R,'N,' ,'W,'I,'T,'H,'0,'U,'T ,' 

.BY 'G,'0,'S,'U,'B+$80 

.BY 'O.'U.'T,' ,'0,'F,' ,'D,'A,'T,'A+$80 

.BY 'I.'L.'L.'E.'G.'A.'L 

.BY ' ,'Q,'U,'A,'N,'T,-I,'T,-Y+$80 

.BY '0,'V,'E,'R,'F,'L,'0,'VH-$80 

.BY -O.-U.-T,' ,'0,'F,' ,'M,-E,'M,'0,'R,'Y+$80 

.BY 'U,'N,'D,'E,'F,$27,'D,' 

.BY 'S,'I,'A,'T,'E,'M,'E,'N,-Tt$80 

.BY 'B.'A.'D,' ,-S > 'U,'B,'S,'C,'R,'I,'P,'T+$80 

.BY 'R,'E,'D,'I,'M > $27 > 'D,- ,'A,-R,-R,-A,-Y+$80 

.BY 'D,'I,'V,'I,'S,'I,'0,'N,' ,'B,'Y 

.BY ' ,'Z,'E,'R,'0+$80 

.BY 'I.-L.'L.'E.'G.-A.'L,' ,'D,'I,'R,'E,'C,'T+$80 

.BY 'T.'Y.'P.'E,' .'M.'I.'S.'M.-A.'T.'C'H+SSO 

.BY -S.'T.'R.'I.'H.'G,- ,-T,'0,'0,' ,'L,-0,'N,'G+$80 

.BY 'F.'I.'L.'E,' ,'D,-A,-T,'A+$80 

.BY 'F,'0,'R,'M,'U,'L,'A,' ,'T,'0,'0,' 

.BY 'C'O.'M.'P.'L.'E.'X+SSO 

.BY 'C,'A,'N,$27,'T,' ,'C,'0,'N,'T,'I ,'N,'U,'E+$80 

.BY 'U,'N,'D,'E,'F,$27,'D 

.BY ' ,'F,'U,'K,'C,'T,'I,'0,'1H-$80 

.BY 'V,'E,'R,'I,'F,'Y+$80 

.BY 'L,'0,'A,'D+$80 



A328 9EA1 
A32A ACA1 
A32C B5A1 
A32E C2A1 
A330 D0A1 
A332 E2A1 
A3 34 FOA1 
A3 36 FFA1 
A338 10A2 
A3 3 A 25A2 
A33C 35A2 
A33E 3BA2 
A340 4FA2 
A342 5AA2 
A344 6AA2 
A346 72A2 
A348 7FA2 
A34A 90A2 
A34C 9DA2 
A34E AAA2 
A3 50 BAA2 
A352 C8A2 
A354 D5A2 
A356 E4A2 
A358 EDA2 
A35A 00A3 
A35C 0EA3 
A35E 1EA3 
A3 60 2 4 A3 
A3 62 83 A3 

A364 0D4F4B 
A369 202045 
A371 20494E 
A376 0D0A52 
A381 ODOA 
A383 425245 



430 ; error 

431 ; index 

432 ; 

433 TA328 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 

463 ; 

464 TA364 

465 TA369 

466 TA371 

467 TA376 

468 TA381 

469 TA383 



message address table 

01-1E loaded into X to reference message table 

.W TA19E ;01 Too Many Files 

.W TA1AC ;02 File Open 

.W TA1B5 ;03 File Not Open 

.W TA1C2 ;04 File Not Found 

.W TA1D0 ;05 Device Not Present 

.W IA1E2 ;06 Not Input File 

.W TA1F0 ;07 Not Output File 

.W TA1FF ;08 Missing File Name 

.W TA210 ;09 Illegal Device Number 

.W TA225 ;0A Next Without For 

.W TA235 ;0B Syntax 

.W TA23B ;0C Return Without Gosub 

.W TA24F ;0D Out Of Data 

.W TA25A ;0E Illegal Quantity 

.W TA26A ;0F Overflow 

.W TA272 ;10 Out Of Memory 

.W TA27F ;11 Undef'd Statement 

.W TA290 ;12 Bad Subscript 

.W TA29D ;13 Redim'd Array 

.W TA2AA ;14 Division By Zero 

•W TA2BA ;15 Illegal Direct 

.W TA2C8 ;16 Type Mismatch 

W TA2D5 ;17 String Too Long 

.W TA2E4 ;18 File Data 

W TA2ED ;19 Formula Too Complex 

W TA300 ;1A Can't Continue 

W TA30E ;1B Undef'd Function 

W TA31E ;1C Verify 

W TA324 ;1D Load 

W TA383 ;1E Break 



.BY $0D,'O,'K,$0D,$O0 

.BY ' ,' ,'E,'R,-R,'0,'R,$00 

.BY ' ,'1,'N,' ,$00 

.BY SOD^OA.'R.-E.-A.'D.'Y.'.^OD.SOA.SOO 

.BY $OD,$0A 

.BY 'B.'R.'E.'A.'K.SOO.SAO 
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A3 8 A 
A38B 
A38C 
A38D 
A38E 
A38F 
A392 
A394 
A396 
A398 
A39A 
A39D 
A39F 
A3A2 
A3A4 
A3A7 
A3A9 
A3AB 
A3AE 
A3B0 
A3B1 
A3B2 
A3B4 
A3B5 
A3B7 



BA 

E8 

E8 

E8 

E8 

BD0101 

C981 

D021 

A54A 

DOOA 

BD0201 

8549 

BD0301 

854A 

DD0301 

D007 

A549 

DD0201 

F007 

8A 

18 

6912 

AA 

DOD8 

60 



471 ;search for "FOR" blocks on stack (code 81) 

473 'if Z49/Z4A > $00FF, get FOR block with address = Z49/Z4A 

474 ';lf Z49/Z4A < $0100, get highest FOR block in Z49/Z4A 

475 -upon exit, X = stack above FOR block 

476 ;Z-1 when FOR block found 

477 ;Z-0 when FOR block not found 

478 ;A=code of block found 

479 ; 

480 SA38A TSX 

481 INX 

482 INX 

483 INX 

484 INX 

485 BA38F LDA X0101.X 



486 CMP $81 

487 BNE BA3B7 

488 LDA Z4A 

489 BNE BA3A4 

490 LDA X0102.X 

491 STA Z49 

492 LDA X0103.X 

493 STA Z4A 

494 BA3A4 CMP X0103.X 

495 BNE BA3B0 

496 LDA Z49 

497 CMP X0102.X 

498 BEQ BA3B7 

499 BA3B0 TXA 

500 CLC 

501 ADC $12 

502 TAX 

503 BNE BA38F 

504 BA3B7 RTS 



; point to highest block 

;if no FOR block 
; return with Z=0 

;if no address 

;get address from highest block 



; compare address to block 



;return with Z=l if equal 
;if not equal 

;skip a FOR block 

;and try again 
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;move bytes after a check for space 



A3B8 2O08A4 
A3BB 8531 
A3BD 8432 



506 

507 

508 SA3B8 JSR SA408 
STA Z31 
STY Z32 



509 
510 
511 
512 
513 



;do array area overflow check for AY 
;set new end of array area 



;move bytes routine 

; source address in Z5F/Z60 

514 ;end of source address In Z5A/Z5B 

515 ;end of destination address in Z58/Z59 

516 ; 
517 
518 
519 



;highest bytes moved first 
;X and Y at upon return 



A3BF 38 


520 


SA3BF SEC 


A3C0 A55A 


521 




LDA Z5A 


A3C2 E55F 


522 




SBC Z5F 


A3C4 8522 


523 




STA Z22 


A3C6 A8 


524 




TAY 


A3C7 A55B 


525 




LDA Z5B 


A3C9 E560 


526 




SBC Z60 


A3CB AA 


527 




TAX 


A3CC E8 


528 




INX 


A3CD 98 


529 




TYA 


A3CE F023 


530 




BEQ BA3F3 


A3D0 A55A 


531 




LDA Z5A 


A3D2 38 


532 




SEC 


A3D3 E522 


533 




SBC Z22 


A3D5 855A 


534 




STA Z5A 


A3D7 B003 


535 




BCS BA3DC 


A3D9 C65B 


536 




DEC Z5B 


A3DB 38 


537 




SEC 


A3DC A558 


538 


BA3DC 


LDA Z58 


A3DE E522 


539 




SBC Z22 


A3E0 8558 


540 




STA Z58 


A3E2 B008 


541 




BCS BA3EC 


A3E4 C659 


542 




DEC Z59 


A3E6 9004 


543 




BCC BA3EC 


A3E8 B15A 


544 


BA3E8 


LDA (Z5A),Y 


A3EA 9158 


545 




STA (Z58),Y 


A3EC 88 


546 : 


BA3EC 


DEY 


A3ED D0F9 


547 




BNE BA3E8 


A3EF B15A 


548 




LDA (Z5A),Y 


A3F1 9158 


549 




STA (Z58),Y 


A3F3 C65B 


550 BA3F3 


DEC Z5B 


A3F5 C659 


551 




DEC Z59 


A3F7 CA 


552 




DEX 


A3F8 D0F2 


553 




BNE BA3EC 


A3FA 60 


554 




RTS 



; compute length of area to be moved 
;Y=low order 8 bits 



;X-high order 8 bits 



;if multiple of 256, skip remainder 



;Z5A/Z5B points to start source block 



;Z58/Z59 points to destination 

;fetch a byte from source 
;move it to destination 

; repeat for all 256 bytes in a page 
;also last byte 

; point to lower block of source 
;point to lower block of destination 

; repeat for all blocks 
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test for 2 * A bytes available on the stack 



A3FB 
A3FC 
A3FE 
A400 
A402 
A403 
A405 
A407 



OA 

693E 

B035 

8522 

BA 

E422 

902E 

60 



556 
557 
558 
559 
560 
561 SA3FB ASL A 



•allow 62 bytes extra for Interrupt processing 
; indicate fatal error if not enough space left 



A408 
A40A 
A40C 
A40E 
A410 
A412 
A413 
A415 
A416 
A417 
A419 
A41A 
A41C 
A41F 
A421 
A422 
A424 
A425 
A427 
A428 
A429 
A42A 
A42C 
A42E 
A430 
A432 
A434 



C434 

9028 

D004 

C533 

9022 

48 

A209 

98 

48 

B557 

CA 

10FA 

2026B5 

A2F7 

68 

9561 

E8 

30FA 

68 

A8 

68 

C434 

9006 

D005 

C533 

B001 

60 



562 ADC $3E 

563 BCS BA435 

564 STA Z22 

565 TSX 

566 CPX Z22 

567 BCC BA435 

568 RTS 

569 ; 

570 ;array area overflow check 

571 ; 

572 SA408 CPY Z34 



jmultiply A * 2 
;62 bytes extra 
; error if overflow 



;if stack above result 
; overflow error 



573 
574 
575 
576 



577 BA412 PHA 



BCC BA434 
BNE BA412 
CMP Z33 
BCC BA434 



;if A below string storage pointer 
; return 



578 
579 



LDX $09 
TYA 



580 BA416 PHA 



581 
582 
583 
584 
585 



586 BA421 PLA 



LDA Z57.X 
DEX 

BPL BA416 
JSR SB526 
LDX $F7 



587 STA Z61.X 

588 INX 

589 BMI BA421 

590 PLA 

591 TAY 

592 PLA 

593 CPY Z34 

594 BCC BA434 

595 BNE BA435 

596 CMP Z33 

597 BCS BA435 

598 BA434 RTS 

599 ; 

600 ; fatal error OUT OF MEMORY 

601 ; 
A435 A210 602 BA435 LDX $10 



;save AY 



;save Z58-Z61 on stack 



; perform string cleanup 



;restore Z58-Z61 from stack 



; res tore AY 

;if AY still above string pointer, 

;then error OUT OF MEMORY 



; point to error OUT OF MEMORY 
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A437 6C0003 



A43A 

A43B 

A43C 

A43D 

A440 

A442 

A445 

A447 

A44A 

A44C 

A44E 

A451 

A454 

A456 

A458 

A459 

A45B 

A45E 

A45F 

A460 

A462 

A465 

A467 

A469 

A46C 

A46E 

A46F 

A471 

A474 

A476 

A478 

A47B 

A47D 

A480 



8A 

OA 

AA 

BD26A3 

8522 

BD27A3 

8523 

20CCFF 

A900 

8513 

20D7AA 

2045AB 

AOOO 

B122 

48 

297F 

204 7AB 

C8 

68 

10F4 

207AA6 

A969 

A0A3 

201EAB 

A43A 

C8 

F003 

20C2BD 

A976 

A0A3 

201EAB 

A980 

2090FF 

6C0203 



604 ; handle error messages 

605 ; 

606 ;X points to error message address table TA328 

607 ; 

608 JA437 JMP (X0300) ;handle error message (normally A43A) 

609 ; 
; standard error message handler 



610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 



TXA 

ASL A 

TAX 

LDA TA328-2,X ; fetch address from error message table 

STA Z22 

LDA TA328-1.X 

STA Z23 

JSR XFFCC 

LDA $00 

STA Z13 

JSR SAAD7 

JSR SAB45 

LDY $00 



;restore I/O devices to default 

;set default CMD output file 
;end line on CMD output file 
; print question mark on output file 



625 BA456 LDA (Z22),Y 



626 
627 
628 
629 
630 
631 
632 
633 
634 



PHA 

AND $7F 

JSR SAB47 

INY 

PLA 

BPL BA456 

JSR SA67A 

LDA <TA369 

LDY >TA369 

635 JA469 JSR SAB1E 

636 LDY Z3A 

637 INY 

638 BEQ BA474 

639 JSR SBDC2 

640 BA474 LDA <TA376 

641 LDY >TA376 

642 JSR SAB1E 

643 LDA $80 

644 JSR XFF90 

645 BA480 JMP (X0302) 

646 ; 

647 ;standard warm start routine (BASIC Interpreter) 

648 ; 
;get statement into the input buffer 
;move beginning of line address 
;to current character address 
;get next character of statement 

;skip statement if end of line 

;set Run/Direct switch to Direct 
;if no line number, 
; encode keywords in statement 
;and go execute statement 



; print a character on output file 



; repeat if end of message not reached 
;reset stack and program pointers 

;set AY to mesage ERROR 
; print message from AY 
;if in direct mode 

; restart BASIC 

;else print IN STATEMENT and t 

j set AY to message READY 
; print READY message 

;set kernal msg flag for direct mode 
; perform warm start (normally A483) 



A483 2060A5 


649 


JSR SA560 


A486 86 7 A 


650 


STX Z7A 


A488 847B 


651 


STY Z7B 


A48A 207300 


652 


JSR X0073 


A48D AA ' 


653 


TAX 


A48E F0F0 


654 


BEQ BA480 


A490 A2FF 


655 


LDX $FF 


A492 863A 


656 


STX Z3A 


A494 9006 


657 


BCC BA49C 


A496 2079A5 


658 


JSR SA579 


A499 4CE1A7 


659 


JMP JA7E1 
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661 ; 


numbered statemen 




662 ; 




A49C 206BA9 


663 BA49C JSR SA96B 


A49F 2079A5 


664 


JSR SA579 


A4A2 840B 


665 


STY ZOB 


A4A4 2013A6 


666 


JSR SA613 


A4A7 9044 


667 
668 


BCC BA4ED 




669 


delete old staten 




670 




A4A9 A001 


671 


LDY $01 


A4AB B15F 


672 


LDA (Z5F),Y 


A4AD 8523 


673 


STA Z23 


A4AF A52D 


674 


LDA Z2D 


A4B1 8522 


675 


STA Z22 


A4B3 A560 


676 


LDA Z60 


A4B5 8525 


677 


STA Z25 


A4B7 A55F 


678 


LDA Z5F 


A4B9 88 


679 


DEY 


A4BA F15F 


680 


SBC (Z5F),Y 


A4BC 18 


681 


CLC 


A4BD 652D 


682 


ADC Z2D 


A4BF 85 2D 


683 


STA Z2D 


A4C1 8524 


684 


STA Z24 


A4C3 A52E 


685 


LDA Z2E 


A4C5 69FF 


686 


ADC $FF 


A4C7 852E 


687 


STA Z2E 


A4C9 E560 


688 


SBC Z60 


A4CB AA 


689 


TAX 


A4CC 38 


690 


SEC 


A4CD A55F 


691 


LDA Z5F 


A4CF E52D 


692 


SBC Z2D 


A4D1 A8 


693 


TAY 


A4D2 B003 


694 


BCS BA4D7 


A4D4 E8 


695 


INX 


A4D5 C625 


696 


DEC Z25 


A4D7 18 


697 


BA4D7 CLC 


A4D8 6522 


698 


ADC Z22 


A4DA 9003 


699 


BCC BA4DF 


A4DC C623 


700 


DEC Z23 


A4DE 18 


701 


CLC 


A4DF B122 


702 


BA4DF LDA (Z22),Y 


A4E1 9124 


703 


STA (Z24),Y 


A4E3 C8 


704 


INY 


A4E4 D0F9 


705 


BNE BA4DF 


A4E6 E623 


706 


INC Z23 


A4E8 E625 


707 


INC Z25 


A4EA CA 


708 


DEX 


A4EB D0F2 


709 


BNE BA4DF 



jgather line number into Z14/Z15 
; encode keywords In statement 
;save index for end of line 
; search for statement in program 
;if not found, insert line 



move low of pointer to next statement 

imove low of ptr beyond last statement 

move byte of ptr to current statement 

low byte of ptr to current statement 
-low byte of pointer to next statement 
length of gap in 2's complement 

+ low byte ptr beyond last statement 
= new pointer beyond last statement 
also saved 

high byte of ptr beyond last statement 
+ carry 

new high of pointer beyond last stmt 
;-high of pointer to current stmt 
"high byte of # of bytes to move 

low byte of ptr to current statement 

-low of pointer beyond last statement 

=number of bytes to move 

if necessary, 

adjust carry 

also adjust low end pointer 



;get byte from low end 
imove to new low end 



; repeat until page moved 
; update page pointers 



; repeat until last block moved 
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A4ED 2059A6 
A4F0 2033A5 
A4F3 AD0002 
A4F6 F088 
A4F8 18 
A4F9 A52D 
A4FB 855A 
A4FD 650B 
A4FF 8558 
A501 A42E 
A503 845B 
A505 9001 
A507 C8 
A508 8459 
A50A 20B8A3 
A50D A514 
A50F A415 
A511 8DFE01 
A514 8CFF01 
A517 A531 
A519 A432 
A51B 852D 
A51D 842E 
A51F A40B 
A521 88 
A522 B9FC01 
A525 915F 
A527 88 
A528 10F8 
A52A 2059A6 
A52D 2033A5 
A530 4C80A4 



711 jinsert new line at location Indicated by Z5F/Z60 

712 ; 

713 BA4ED JSR SA659 
JSR SA533 



714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 



LDA X0200 
BEQ BA480 
CLC 

LDA Z2D 
STA Z5A 
ADC ZOB 
STA Z58 
LDY Z2E 
STY Z5B 
BCC BA508 
INY 



;reset program pointers 

; relink BASIC lines 

;if first byte of new line is a null, 

; don't insert 



726 BA508 STY Z59 

727 JSR SA3B8 

728 LDA Z14 

729 LDY Z15 

730 STA X01FE 

731 STY X01FF 

732 LDA Z31 

733 LDY Z32 

734 STA Z2D 

735 STY Z2E 

736 LDY ZOB 

737 DEY 

738 BA522 LDA X0200-4.Y 

739 STA (Z5F),Y 

740 DEY 

741 BPL BA522 

742 JSR SA659 

743 JSR SA533 

744 JHP BA480 



;get low byte of pointer to end of line 
;save as end pointer for move 
;add length of line to be Inserted 
;save as end outpout pointer for move 
;save high bytes also 



;move bytes and check for overflow 
;move line number 

;to fields preceeding input buffer 

;use new upper limit 

;as new end of program 

;get length of line to be inserted 

;move new line 
;into gap 

;loop until line moved 
; reset program pointers 
; relink BASIC lines 
;go back to BASIC 
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A533 A52B 
A535 A42C 
A537 8522 
A539 8423 
A53B 18 
A53C A001 
A53E B122 
A540 FOID 
A542 A004 
A544 C8 
A545 B122 
A547 DOFB 
A549 C8 
A54A 98 
A54B 6522 
A54D AA 
A54E AOOO 
A550 9122 
A552 A523 
A554 6900 
A556 C8 
A557 9122 
A559 8622 
A55B 8523 
A55D 90DD 
A55F 60 



746 ; relink BASIC 

747 ; 

748 SA533 LDA Z2B 

749 LDY Z2C 

750 S1A Z22 

751 STY Z23 

752 CLC 

753 BA53C LDY $01 

754 LDA (Z22),Y 

755 BEQ BA55F 

756 LDY $04 

757 BA544 INY 



A560 
A562 
A565 
A567 
A569 
A56C 
A56D 
A56F 
A571 
A573 



A200 

2012E1 

C90D 

FOOD 

9D0002 

E8 

E059 

90F1 

A217 

4C37A4 



758 LDA (Z22),Y 

759 BNE BA544 

760 INY 

761 TYA 

762 ADC Z22 

763 TAX 

764 LDY $00 

765 STA (Z22),Y 

766 LDA Z23 

767 ADC $00 

768 INY 

769 STA (Z22),Y 

770 SIX Z22 

771 STA Z23 

772 BCC BA53C 

773 BA55F RTS 

774 ; 

775 ;get statement into 

776 ; 

777 SA560 LDX $00 

778 BA562 JSR XE112 



;get pointer to beginning of BASIC text 
;hold in temporary pointer 



;get byte at current statement + 1 
;if at 0, end of program reached 
;set start index 
; increment index 

;scan to end of line 



A576 4CCAAA 



779 
780 
781 
782 
783 
784 
785 
786 

787 ; 

788 BA576 JMP JAACA 



CMP $0D 
BEQ BA576 
STA X0200.X 
INX 

CPX $59 
BCC BA562 
LDX $17 
JMP JA437 



jcompute pointer to next statement 
;set link in beginning of statement 

;set new current statement address 

; repeat until all statements processed 

input buffer 

; star. I with index=0 

;get clean character fr.om CMD file 

;if Return, 

;go end line 

;else store character in input buffer 

;if statement not too long 

; repeat 

;else point to messge STRING TOO LONG 

;and print error message 

;go end line 
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A579 6C0403 



A57C A67A 
A57E A004 
A580 840F 
A582 BD0002 
A585 1007 
A587 C9FF 
A589 F03E 
A58B E8 
A58C D0F4 
A58E C920 
A590 F037 
A592 8508 
A594 C922 
A596 F056 
A598 240F 
A59A 702D 
A59C C93F 
A59E D004 
A5A0 A999 
A5A2 D025 
A5A4 C930 
A5A6 9004 
A5A8 C93C 
A5AA 901D 
A5AC 8471 
A5AE A000 
A5B0 840B 
A5B2 88 
A5B3 867A 
A5B5 CA 
A5B6 C8 
A5B7 E8 
A5B8 BD0002 
A5BB 38 
A5BC F99EA0 
A5BF F0F5 
A5C1 C980 
A5C3 D030 
A5C5 050B 
A5C7 A471 
A5C9 E8 
A5CA C8 
A5CB 99FB01 
A5CE B9FB01 
A5D1 F036 
A5D3 38 
A5D4 E93A 
A5D6 F004 
A5D8 C949 
A5DA D002 
A5DC 850F 
A5DE 38 
A5DF E955 
A5E1 D09F 
A5E3 8508 
A5E5 BD0002 



790 SA579 JMP (X0304) 

791 j 
; crunch tokens routine 



; crunch tokens (normally A57C) 



792 
793 
794 
795 
796 



LDX Z7A 
LDY $04 
STY Z0F 



797 BA582 LDA X0200.X 



798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 



BPL BA58E 
CMP $FF 
BEQ BA5C9 
INX 

BNE BA582 
BA58E CMP $20 

BEQ BA5C9 
STA Z08 
CMP '" 
BEQ BA5EE 
BIT ZOF 
BVS BA5C9 
CMP $3F 
BNE BA5A4 
LDA $99 
BNE BA5C9 



814 BA5A4 CMP '0 

815 BCC BA5AC 

816 CMP $3C 

817 BCC BA5C9 

818 BA5AC STY Z71 

819 LDY $00 

820 STY ZOB 

82 1 DEY 

822 STX Z7A 

823 DEX 

824 BA5B6 INY 

825 INX 

826 BA5B8 LDA X0200.X 

827 SEC 

828 SBC TA09E.Y 

829 BEQ BA5B6 

830 CMP $80 

831 BNE BA5F5 

832 ORA ZOB 

833 BA5C7 LDY Z71 

834 BA5C9 INX 

835 INY 

836 STA X0200-5.Y 

837 LDA X0200-5.Y 

838 BEQ BA609 

839 SEC 

840 SBC ': 

841 BEQ BA5DC 

842 CMP $49 

843 BNE BA5DE 

844 BA5DC STA ZOF 

845 BA5DE SEC 

846 SBC $55 

847 BNE BA582 

848 STA Z08 



;get Input index 

;set output index -5 

;set not a DATA statement 

;get next character 

; check for PI 



;other codes above $7F are ignored 

;move blanks 

;save possible quote 

;move string when between quotes 
;move character if in DATA statement 

;if question mark 

; replace by code for PRINT 

;move if numeric 



;save output index 

; initialize table index 

; initialize keyword count 

;save input index 

;next character in table 

;next character in line 

;get character from input buffer 

;if equal to table character 

;try next 

;if equal to character without bit 

;save keyword count + $80 
; restore output index 
; advance input index 
; advance output index 
; store character or code 

;if zero, end of string 

;if colon, set flag to not data 

;if code for DATA, set flag 



;if REM 



849 BA5E5 LDA X0200.X 



;set 00 as terminator 

;get next character from input buffer 
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A5E8 

A5EA 

A5EC 

A5EE 

A5EF 

A5F2 

A5F3 

A5F5 

A5F7 

A5F9 

A5FA 

A5FD 

A5FF 

A602 

A604 

A607 

A609 

A60C 

A60E 

A610 

A612 



FODF 

C508 

FODB 

C8 

99FB01 

E8 

DOFO 

A67A 

E60B 

C8 

B99DAO 

10FA 

B99EA0 
D0B4 

BD0002 

10BE 

99FD01 

C67B 

A9FF 

857A 

60 



850 

851 

852 

853 BA5EE 

854 

855 

856 

857 BA5F5 

858 

859 BA5F9 

860 

861 

862 

863 

864 

865 

866 BA609 

867 

868 

869 

870 



BEQ BA5C9 

CMP Z08 

BEQ BA5C9 

INY 

STA X0200-5.Y 

INX 

BNE BA5E5 

LDX Z7A 

INC ZOB 

INY 

LDA TA09E-1.Y 

BPL BA5F9 

LDA TA09E.Y 

BNE BA5B8 

LDA X0200.X 

BPL BA5C7 

STA X0200-3 ,Y 

DEC Z7B 

LDA $FF 

STA Z7A 

RTS 



;end upon zero 

;or terminator (") 

; advance output Index 

;move character 

; advance Input index 

; repeat 

;at end of keyword from table 

; increment count 

; advance table pointer 

; beyond end of last keyword 

;if not at end of table 

; restore input character 

; repeat 

;set end of line 

;set current character pointer 

;to beginning of input buffer again 



19 



872 ; search for a statement in the program 

873 ; 

874 ;line number search argument in Z14/Z15 

875 ;exit with C=l/0 for found/not found 

876 ;Z5F/Z60 set to address of statement found, or next higher 

877 ; 

;get pointer to beginning of BASIC 



;save pointer to current statement 

;get link address in current statement 
;0=end of program 



A613 A52B 


878 


SA613 


LDA Z2B 


A615 A62C 


879 




LDX Z2C 


A617 A001 


880 


BA617 


LDY $01 


A619 855F 


881 




STA Z5F 


A61B 8660 


882 




STX Z60 


A61D B15F 


883 




LDA (Z5F),Y 


A61F F01F 


884 




BEQ BA640 


A621 C8 


885 




INY 


A622 C8 


886 




INY 


A623 A515 


887 




LDA Z15 


A625 D15F 


888 




CMP (Z5F),Y 


A627 9018 


889 




BCC BA641 


A629 F003 


890 




BEQ BA62E 


A62B 88 


891 




DEY 


A62C D009 


892 




BNE BA637 


A62E A514 


893 


BA62E 


LDA Z14 


A630 88 


894 




DEY 


A631 D15F 


895 




CMP (Z5F),Y 


A633 900C 


896 




BCC BA641 


A635 F00A 


897 




BEQ BA641 


A637 88 


898 


BA637 


DEY 


A638 B15F 


899 




LDA (Z5F),Y 


A63A AA 


900 




TAX 


A63B 88 


901 




DEY 


A63C B15F 


902 




LDA (Z5F),Y 


A63E B0D7 


903 




BCS BA617 


A640 18 


904 


BA640 


CLC 


A641 60 


905 


BA641 


RTS 



; compare statement numbers 
;return if search high (not found) 
; since high matches, check low 

; continue since statement number low 



; compare low order of statement numbers 
; return if high 
; return if equal 

;get pointer to next statement in AY 



; repeat 



20 





907 


"NEW 


command 




908 






A642 DOFD 


909 WA642 


BNE BA641 


A644 A900 


910 




LDA $00 


A646 A8 


911 




TAY 


A647 912B 


912 




STA (Z2B),Y 


A649 C8 


913 




INY 


A64A 912B 


914 




STA (Z2B),Y 


A64C A52B 


915 




LDA Z2B 


A64E 18 


916 




CLC 


A64F 6902 


917 




ADC $02 


A651 852D 


918 




STA Z2D 


A653 A52C 


919 




LDA Z2C 


A655 6900 


920 




ADC $00 


A657 852E 


921 




STA Z2E 


A659 208EA6 


922 


SA659 


JSR SA68E 


A65C A900 


923 
924 




LDA $00 




925 


;"CLR 


" command 




926 






A65E D02D 


927 


WA65E 


BNE BA68D 


A660 20E7FF 


928 


SA660 


JSR XFFE7 


A663 A537 


929 




LDA Z37 


A665 A438 


930 




LDY Z38 


A667 8533 


931 




STA Z33 


A669 8434 


932 




STY Z34 


A66B A52D 


933 




LDA Z2D 


A66D A42E 


934 




LDY Z2E 


A66F 852F 


935 




STA Z2F 


A671 8430 


936 




STY Z30 


A673 8531 


937 




STA Z31 


A675 8432 


938 




STY Z32 


A677 201DA8 


939 
940 


» 


JSR SA81D 




941 


; reset stack, and 




942 


j 




A67A A219 


943 


SA67A LDX <Z19 


A67C 8616 


944 




STX Z16 


A67E 68 


945 




PLA 


A67F A8 


946 




TAY 


A680 68 


947 




PLA 


A681 A2FA 


948 




LDX $FA 


A683 9 A 


949 




TXS 


A684 48 


950 




PHA 


A685 98 


951 




TYA 


A686 48 


952 




PHA 


A687 A900 


953 




LDA $00 


A689 853E 


954 




STA Z3E 


A68B 8510 


955 




STA Z10 


A68D 60 


956 


BA68D RTS 



;if parameters present, SYNTAX Error 



;store zero s 

;ln first 2 bytes of BASIC program area 
;pointer to start of BASIC 

;+ 2 

; becomes pointer to end of BASIC 



; re-initialize current character ptr 
;Z = 1 



;if parameters present, SYNTAX Error 
; close all channels and files 
;get memory limit in AY 

;reset string storage pointer 

;move pointer to variables in AY 

;into pointer to start of arrays 

;also into pointer to end of arrays 

;perform RESTORE 

program pointers 



;reset string descriptor stack index 
;get own return address in AY 



;reset stack pointer 

;put own return address back on stack 



; clear pointer for CONTinue 
;also subscript flag 
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958 


;set 


current ch 




959 


J 




A68E 18 


960 


SA68F. 


CLC 


A68F A52B 


961 




LDA Z2B 


A691 69FF 


962 




ADC $FF 


A693 857A 


963 




STA Z7A 


A695 A52C 


964 




LDA Z2C 


A697 69FF 


965 




ADC $FF 


A699 857B 


966 




STA Z7B 


A69B 60 


967 
968 




RTS 




969 


; "LIST" command 




970 






A69C 9006 


971 


WA69C 


BCC BA6A4 


A69E F004 


972 




BEQ BA6A4 


A6A0 C9AB 


973 




CMP $AB 


A6A2 D0E9 


974 




BNE BA68D 


A6A4 206BA9 


975 


BA6A4 


JSR SA96B 


A6A7 201 3A6 


976 




JSR SA613 


A6AA 207900 


977 




JSR X0079 


A6AD F00C 


978 




BEQ BA6BB 


A6AF C9AB 


979 




CMP $AB 


A6B1 D08E 


980 




BNE BA641 


A6B3 207300 


981 




JSR X0073 


A6B6 206BA9 


982 




JSR SA96B 


A6B9 D086 


983 




BNE BA641 


A6BB 68 


984 


BA6BB 


PLA 


A6BC 68 


985 




PLA 


A6BD A514 


986 




LDA Z14 


A6BF 0515 


987 




ORA Z15 


A6C1 D006 


988 




BNE BA6C9 


A6C3 A9FF 


989 




LDA $FF 


A6C5 8514 


990 




STA Z14 


A6C7 8515 


991 




STA Z15 



set current character pointer to beginning of program -1 



;get pointer to beginning of BASIC area 

;-i 

; store into current character pointer 
;same for high byte 



; parameter must be numeric, 

;or else none at all 

;or "-" 

;if none of above, SYNTAX Error 

;gather decimal number into Z14/Z15 

; search for statement in program 

;get current character 

;if not at end of statement 

;or "-" 

;then SYNTAX Error 

;get next character after "-" 

; gather decimal number into Z14/Z15 

;if not end of statement, SYNTAX Error 

jremove return address from stack 

;if last parameter zero (missing) 



;set it to 65535 



;list statement from 



A6C9 

A6CB 

A6CD 

A6CF 

A6D1 

A6D4 

A6D7 

A6D8 

A6DA 

A6DB 

A6DC 

A6DE 

A6E0 

A6E2 

A6E4 

A6E6 

A6E8 

A6EA 

A6ED 

A6EF 

A6F1 

A6F3 

A6F6 

A6F8 

A6FA 

A6FC 

A6FE 

A700 

A701 

A703 

A705 

A707 

A708 

A70A 

A70B 

A70C 

A70E 

A710 

A712 

A714 



A001 

840F 

B15F 

F043 

202CA8 

20D7AA 

C8 

B15F 

AA 

C8 

B15F 

C515 

D004 

E414 

F002 

B02C 

8449 

20CDBD 

A920 

A449 

297F 

2047AB 

C922 

D006 

A50F 

49FF 

850F 

C8 

F011 

B15F 

DOIO 

A8 

B15F 

AA 

C8 

B15F 

865F 

8560 

D0B5 

4C86E3 



993 

994 ; 

995 BA6C9 
996 
997 
998 
999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 BA700 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 BA714 



BA6E6 
BA6E8 



BA6EF 
BA6F3 



LDY $01 

STY ZOF 

LDA (Z5F),Y 

BEQ BA714 

JSR SA82C 

JSR SAAD7 

INY 

LDA (Z5F),Y 

TAX 

INY 

LDA (Z5F),Y 

CMP Z15 

BNE BA6E6 

CPX Z14 

BEQ BA6E8 

BCS BA714 

STY Z49 

JSR SBDCD 

LDA $20 

LDY Z49 

AND $7F 

JSR SAB47 

CMP '" 

BNE BA700 

LDA ZOF 

EOR $FF 

STA ZOF 

INY 

BEQ BA714 

LDA (Z5F),Y 

BNE BA717 

TAY 

LDA (Z5F),Y 

TAX 

INY 

LDA (Z5F),Y 

STX Z5F 

STA Z60 

BNE BA6C9 

JMP XE386 



Z5F/Z60 thru Z14/Z15 

;set string switch to not a string 

;get high byte of link address for line 
;0=end of program, go restart BASIC 
; check for Stop Key 
;end line on CMD output file 

;set AX to statement # 

; compare to end of list statement 



;if higher, stop 

;save index in statement 

; print statement # from AX 

; insert a blank 

; restore index in statement 

; clear bit 7 

; print character from A on CMD file 

;if a quote character 



;flip string switch 

; advance index 

;if line too long, restart BASIC 

;if not end of line, go print it 

;if end of line, 

;get pointer to next statement in AX 



;and reset line address 

;then loop back for next line 
;go restart BASIC 
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A717 6C0603 


i 1036 
1037 


BA717 

» 


JMP 


(X0306) 




1038 


; print tokens 




1039 


> 






A71A 10D7 


1040 




BPL 


BA6F3 


A71C C9FF 


1041 




CMP 


$FF 


A71E F0D3 


1042 




BEQ 


BA6F3 


A720 240F 


1043 




BIT 


ZOF 


A722 30CF 


1044 




BMI 


BA6F3 


A724 38 


1045 




SEC 




A725 E97F 


1046 




SBC 


$7F 


A727 AA 


1047 




TAX 




A728 8449 


1048 




STY 


Z49 


A72A AOFF 


1049 




LDY 


$FF 


A72C CA 


1050 


BA72C 


DEX 




A72D F008 


1051 




BEQ 


BA737 


A72F C8 


1052 


BA72F 


1NY 




A730 B99EAO 


1053 




LDA 


TA09E.Y 


A733 10FA 


1054 




BPL 


BA72F 


A735 30F5 


1055 
1056 


» 


BMI 


BA72C 




1057 


; print keyword 




1058 


j 






A737 C8 


1059 


BA737 


INY 




A738 B99EA0 


1060 




LDA 


TA09E.Y 


A73B 30B2 


1061 




BMI 


BA6EF 


A73D 2047AB 


1062 




JSR 


SAB47 


A740 DOF5 


1063 




BNE 


BA737 



;go print tokens (normally A71A) 



;if bit 7 clear, print one character 

;if code for PI, 

; print PI 

;lf in string mode 

;also print shifted codes 

; compute keyword # 

; save index in statement 

;if keyword found 
;go print keyword 

;else get character from keyword table 

;until bit 7 set (end of keyword) 



;get next character from keyword table 
;if bit 7 set go print last character 
; print character on CMD file 
;and repeat 
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A742 

A744 

A746 

A749 

A74C 

A74E 

A74F 

A751 

A752 

A753 

A754 

A755 

A757 

A75A 

A75D 

A75E 

A75F 

A761 

A762 

A764 

A766 

A767 

A769 

A76A 

A76C 

A76D 

A76F 

A772 

A775 

A778 

A77A 

A77C 

A77E 

A780 

A782 

A784 

A786 

A788 



A980 

8510 

20A5A9 

208AA3 

D005 

8A 

690F 

AA 

9A 

68 

68 

A909 

20FBA3 

2006A9 

18 

98 

657A 

48 

A57B 

6900 

48 

A53A 

48 

A539 

48 

A9A4 

20FFAE 

208DAD 

208AAD 

A566 

097F 

2562 

8562 

A98B 

A0A7 

8522 

8423 

4C43AE 



A78B 
A78D 
A78F 
A792 
A795 
A797 
A799 
A79C 
A79F 
A7A2 
A7A5 
A7A7 
A7A8 
A7AA 
A7AB 
A7AD 



A9BC 

A0B9 

20A2BB 

207900 

C9A9 

D006 

207300 

208 AAD 

202BBC 

2038AE 

A54A 

48 

A549 

48 

A981 

48 



1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 



"FOR" command 



WA742 LDA 

STA 

JSR 

JSR 

BNE 

TXA 

ADC 

TAX 

TXS 

BA753 PL A 

PLA 

LDA 

JSR 

JSR 

CLC 

TYA 

ADC 

PHA 

LDA 

ADC 

PHA 

LDA 

PHA 

LDA 

PHA 

LDA 

JSR 

JSR 

JSR 

LDA 

ORA 

AND 

STA 

LDA 

LDY 

STA 

STY 

JMP 

WA78B LDA 
LDY 
JSR 
JSR 
CMP 
BNE 
JSR 
JSR 

BA79F JSR 
JSR 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 



$80 

Z10 

SA9A5 

SA38A 

BA753 

$0F 



$09 

SA3FB 

SA906 



Z7A 

Z7B 

$00 

Z3A 

Z39 

$A4 

SAEFF 

SAD8D 

SAD8A 

Z66 

$7F 

Z62 

Z62 

<WA78B 

>WA78B 

Z22 

Z23 

JAE43 

•CTB9BC 

>TB9BC 

SBBA2 

X0079 

$A9 

BA79F 

X0O73 

SAD8A 

SBC2B 

SAE38 

Z4A 

Z49 

$81 



;set flag for 

;no Integer variables or array elements 

; execute comand LET 

;get FOR block of variable used 

;if found, 

;drop stack ptr below that FOR block 



;remove return address from stack 

;9 addresses on stack needed 

;else OUT OF MEMORY Error 

;get offset to end of statement 



; compute pointer to end of statement 



;save on stack 



;save current statement # on stack 

;if not TO, then SYNTAX Error 
; initial value must be non-string 
;get next non-string value (TO value) 
;move sign of flp accu 



;into most significant bit 

;set return address for continuation 

;round and save flp accu (TO value) 

;set AY to default step (1) 

;load default step 
;get next character 
;if STEP 

;get next character 

;get next non-string value 

;get SGN of flp accu 

;round flp accu and save on stack 

;save pointer to FOR variable 



;save code for FOR block 
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A7AE 
A7B1 
A7B3 
A7B5 
A7B7 
A7B8 
A7BA 
A7BC 
A7BE 
A7C0 
A7C2 
A7C4 
A7C6 
A7C8 
A7C9 
A7CB 

A7CE 
A7CF 
A7D1 
A7D3 
A7D4 
A7D6 
A7D8 
A7D9 
A7DB 
A7DD 
A7DF 
A7E1 



202CA8 

A57A 

A47B 

C002 

EA 

F004 

853D 

843E 

AOOO 

B17A 

D043 

A002 

B17A 

18 

D003 

4C4BA8 

C8 

B17A 

8539 

C8 

B17A 

853A 

98 

657A 

857A 

9002 

E67B 

6C0803 



1123 ;execute next statement 

1124 ; 

1125 JA7AE JSR SA82C 



1126 
1127 
1128 
1129 
1130 
1131 
1132 



LDA Z7A 
LDY Z7B 
CPY $02 
NOP 

BEQ BA7BE 
STA Z3D 
STY Z3E 



; check Stop Key 

;get ptr to end of old statement in AY 



;if not direct mode, 

; store pointer for possible CONT 



1133 BA7BE LDY $00 

1134 LDA (Z7A),Y 

1135 BNE BA807 

1136 LDY $02 

1137 LDA (Z7A),Y 

1138 CLC 

1139 BNE BA7CE 

1140 JMP JA84B 

1141 ; 

1142 BA7CE INY 

1143 LDA (Z7A),Y 

1144 STA Z39 

1145 INY 

1146 LDA (Z7A),Y 

1147 STA Z3A 

1148 TYA 

1149 ADC Z7A 

1150 STA Z7A 

1151 BCC JA7E1 

1152 INC Z7B 

1153 JA7E1 JMP (X0308) 

1154 ; 
; execute a statement 



;get last byte 

;if not 0, check for ":" 

;get high of pointer to next statement 



;0=end of program 



;move statement # into Z39/Z3A 



; advance pointer over statement header 



;go execute a statement (normally A7E4) 



A7E4 207300 
A7E7 20EDA7 
A7EA 4CAEA7 



1155 
1156 
1157 
1158 
1159 



JSR X0073 ;get next character 

JSR SA7ED ; execute command in A 

JMP JA7AE ;go execute next statement 
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A7ED 
A7EF 
A7F1 
A7F3 
A7F5 
A7F7 
A7F8 
A7F9 
A7FC 
A7FD 
A800 
A801 



F03C 

E980 

9011 

C923 

B017 

0A 

A8 

B90DA0 

48 

B90CA0 

48 

4C7300 



A807 C93A 
A809 F0D6 
A80B 4C08AF 

A80E C94B 
A810 D0F9 
A812 207300 
A815 A9A4 
A817 20FFAE 
A81A 4CA0A8 



1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 



; execute command In A 



SA7ED BEQ BA82B 
JA7EF SBC $80 

BCC BA804 

CMP $23 

BCS BA80E 

ASL A 

TAY 

LDA TAOOC+l.Y 

PHA 

LDA TAOOC.Y 

PHA 

JMP X0073 



•if Z = 1, return (dummy statement) 

';if A < $80 

; perform LET 

;lf A = > A3 (highest command) 

•then check for GOTO 

;get 2 * (A - 80) as index to table 

;move routine address onto stack 



;get first char of parameters and go 



A804 4CA5A9 1176 BA804 JMP SA9A5 ;execute command LET 



BA807 CMP ': 

BEQ JA7E1 
BA80B JMP JAF08 

BA80E CMP $4B 

BNE BA80B 
JSR XO073 
LDA $A4 
JSR SAEFF 
JMP JA8A0 



;if character is a colon, 
; execute next command 
;else print SYNTAX Error 

;if not code for GO 

;then SYNTAX Error 

;else get next character 

;set code for TO 

;if equal 

;go do command GOTO 
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A81D 
A81D 
A81E 
A820 
A822 
A824 
A826 
A827 
A829 
A82B 



38 

A52B 

E901 

A42C 

B001 

88 

8541 

8442 

60 



A82C 20E1FF 



A82F B001 



A831 
A832 
A834 
A836 
A838 
A83A 
A83B 
A83D 
A83F 
A841 
A843 
A845 
A847 
A849 
A84A 
A84B 
A84D 
A84F 
A851 
A854 



18 

D03C 

A57A 

A47B 

A63A 

E8 

FOOC 

853D 

843E 

A539 

A43A 

853B 

843C 

68 

68 

A981 

A0A3 

9003 

4C69A4 

4C86E3 



1189 ; "RESTORE" command 

1190 ; 

1191 WA81D = * 

1192 SA81D SEC 



1193 
1194 
1195 
1196 
1197 



LDA Z2B 
SBC $01 
LDY Z2C 
BCS BA827 
DEY 



1198 BA827 STA Z41 

1199 STY Z42 

1200 BA82B RTS 

1201 ; 

1202 SA82C JSR XFFE1 

1203 ; 

1204 ;"STOP" command 

1205 ; 

1206 WA82F BCS BA832 

1207 ; 

1208 ;"END" command 

1209 ; 

1210 WA831 CLC 

1211 BA832 BNE BA870 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 



LDA Z7A 
LDY Z7B 
LDX Z3A 
INX 

BEQ BA849 
STA Z3D 
STY Z3E 
LDA Z39 
LDY Z3A 
STA Z3B 
STY Z3C 



1223 BA849 PLA 



1224 



PLA 



1225 JA84B LDA <TA381 

1226 LDY >TA381 

1227 BCC BA854 

1228 JMP JA469 

1229 BA854 JMP XE386 



;get pointer to beginning of BASIC 

;-i 

;into AY 



; store AY in current DATA address 



;test Stop Key 



; preserve C flag 



; clear C flag 

;if parameters present, SYNTAX Error 

;set AY to address of current line 



;if not in direct mode, 

;save pointer for possible CONT 

;AY=current statement t 

;move current statement II 
;to previous statement # 
; remove own return address 

;set AY to BREAK message 

;if STOP command, 

; print message and restart BASIC 

;else restart BASIC 
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A857 D017 
A859 A21A 
A85B A43E 
A85D D003 
A85F 4C37A4 



A862 
A864 
A866 
A868 
A86A 
A86C 
A86E 
A870 



A53D 
857A 
847B 
A53B 
A43C 
8539 
84 3 A 
60 



A871 08 
A872 A900 
A874 2090FF 
A877 28 
A878 D003 
A87A 4C59A6 

A87D 2060 A6 
A880 4C97A8 



1231 ;"C0NT" command 

1232 ; 

1233 WA857 BNE BA870 

1234 LDX $1A 

1235 LDY Z3E 

1236 BNE BA862 

1237 JMP JA437 

1238 ; 

1239 BA862 LDA Z3D 

1240 STA Z7A 

1241 STY Z7B 

1242 LDA Z3B 

1243 LDY Z3C 

1244 STA Z39 

1245 STY Z3A 

1246 BA870 RTS 

1247 ; 

1248 ;"RUN" command 

1249 ; 

1250 WA871 PHP 

1251 LDA $00 

1252 JSR XFF90 

1253 PLP 

1254 BNE BA87D 

1255 JMP SA659 

1256 ; 

1257 BA87D JSR SA660 

1258 JMP JA897 

1259 ; 

1260 ; "GOSUB" command 

1261 ; 



A883 A903 


1262 WA883 


LDA $03 


A885 20FBA3 


1263 


JSR SA3FB 


A888 A57B 


1264 


LDA Z7B 


A88A 48 


1265 


PHA 


A88B A57A 


1266 


LDA Z7A 


A88D 48 


1267 


PHA 


A88E A53A 


1268 


LDA Z3A 


A890 48 


1269 


PHA 


A891 A539 


1270 


LDA Z39 


A893 48 


1271 


PHA 


A894 A98D 


1272 


LDA $8D 


A896 48 


1273 


PHA 


A897 207900 


1274 JA897 


JSR X0079 


A89A 20A0A8 


1275 


JSR JA8A0 


A89D 4CAEA7 


1276 


JMP JA7AE 



•if parameters present, SYNTAX Error 
;point to message CAN'T CONTINUE 
;get pointer to current statement in AY 
;if pointer=0, 
; fatal error 

;move saved character pointer 
;into current character pointer 

;move previous statement # 

;Into current statement # 



;set kernal messages flag to RUN mode 

;if no parameters, 

;do CLR and start program 

;else do CLR and then 
;do GOTO 



;need 3 address on stack 
;else error OUT OF MEMORY 



;save pointer to current character 
;on the stack 



;save current statement # on stack 

;save code for GOSUB 
;get current character 
; execute command GOTO 
; execute next statement 
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1278 


; "GOTO " command 




1279 


• 




A8A0 


1280 


HA8A0 = * 


A8A0 206BA9 1281 


JA8A0 JSR SA96B 


A8A3 2009A9 1282 




JSR SA909 


A8A6 38 


1283 




SEC 


A8A7 A539 


1284 




EDA Z39 


A8A9 E514 


1285 




SBC Z14 


A8AB A53A 


1286 




LDA Z3A 


A8AD E515 


1287 




SBC Z15 


A8AF BOOB 


1288 




BCS BA8BC 


A8B1 98 


1289 




TYA 


A8B2 38 


1290 




SEC 


A8B3 657A 


1291 




ADC Z7A 


A8B5 A67B 


1292 




LDX Z7B 


A8B7 9007 


1293 




BCC BA8C0 


A8B9 ES 


1294 




I NX 


A8BA B004 


1295 




BCS BA8C0 


A8BC A52B 


1296 


BA8BC 


LDA Z2B 


A8BE &61C 


1297 




LDX Z2C 


A8C0 2017A6 


1298 


BA8C0 


JSR BA617 


A8C3 901E 


1299 




BCC BA8E3 


A8C5 A55F 


1300 




LDA Z5F 


A8C7 E901 


1301 




SBC $01 


A8C9 857A 


1302 




STA Z7A 


AfaCB A560 


1303 




LDA Z60 


A8CD E900 


1304 




SBC $00 


AfaCF 857B 


1305 




STA Z7B 


A8D1 60 


1306 
1307 


BA8D1 


RTS 




1308 


; "RETURN" command 




1309 






A8D2 DOFD 


1310 


WA8D2 


BNE BA8D1 


A8D4 A9FF 


1311 




LDA $FF 


ASD6 8 54 A 


1312 




STA Z4A 


A8D8 208AA3 


1313 




JSR SA38A 


A8DB 9A 


1314 




TXS 


A8LC C98D 


1315 




CMP $8D 


A8DE FOOB 


1316 




EEC) BA8EB 


A8E0 A20C 


1317 




LDX $0C 


A8E2 2C 


1318 




.BY $2C 


A8E3 A2U 


1319 


BA8E3 


LDX $11 


A8E5 4C37A4 


1320 
1321 




J11P JA437 


A8E8 4C0SAF 


1322 
1323 


3A8E8 


JMP JAF08 


A8EB 68 


1324 BA8EB 


PLA 


AbEC 68 


1325 




PLA 


A8ED 8539 


1326 




STA Z39 


A&EF 68 


1327 




PLA 


A8F0 853A 


1328 




STA Z3A 


A8F2 68 


1329 




PLA 


A8F3 857A 


1330 




STA Z7A 


A8F5 68 


1331 




PLA 


A8F6 857B 


1332 




STA Z7B 



; gather decimal number into Z14/Z15 
;get offset to end of line in Y 

; fetch current statement number 



; if forward jump, 

;let current character pointer 

; point to next statement 



;also start search there 



;else start at beginning of BASIC 

; search for statement starting at AX 
;if not found, UNDEF'D STATEMENT 
;move pointer to statement found 

;-i 

;into current character pointer 



; if parameters present, SYNTAX Error 

;get FOR block 

; remove everything above current block 

;and the block found must be a G0SUB 

;else point to RETURN WITHOUT G0SUB 
; skip next instruction 
; point to UNDEF'D STATEMENT message 
;go print error message 

; print SYNTAX Error message 

; remove COSUB block from stack 

; remove statement number 



; restore current character pointer 
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1334 


;"DATA" command 




1335 


> 




A8F8 


1336 


WA8F8 


s * 


A8F8 2006A9 


1337 


JA8F8 


JSR SA906 


A8FB 98 


1338 


BA8FB 


TYA 


A8FC 18 


1339 




CLC 


A8FD 657A 


1340 




ADC Z7A 


A8FF 857A 


1341 




STA Z7A 


A901 9002 


1342 




BCC BA905 


A903 E67B 


1343 




INC Z7B 


A905 60 


1344 
1345 


BA905 


RTS 




1346 


;get i 


and of staten 




1347 


;get i 


end of line ( 




1348 


; 




A906 A23A 


1349 


SA906 


LDX ': 


A908 2C 


1350 




.BY $2C 


A909 A200 


1351 


SA909 


LDX $00 


A90B 8607 


1352 




STX Z07 


A90D A000 


1353 




LDY $00 


A90F 8408 


1354 




STY Z08 


A911 A508 


1355 


BA911 


LDA Z08 


A913 A607 


1356 




LDX Z07 


A915 8507 


1357 




STA Z07 


A917 8608 


1358 




STX Z08 


A919 B17A 


1359 


BA919 


LDA (Z7A),Y 


A91B F0E8 


1360 




BEQ BA905 


A91D C508 


1361 




CMP Z08 


A91F F0E4 


1362 




BEQ BA905 


A921 C8 


1363 




INY 


A922 C922 


1364 




CMP '" 


A924 D0F3 


1365 




BNE BA919 


A926 F0E9 


1366 
1367 




BEQ BA911 




1368 


;"IF" 


command 




1369 


» 




A928 209EAD 


1370 


WA928 


JSR SAD9E 


A92B 207900 


1371 




JSR X0079 


A92E C989 


1372 




CMP $89 


A930 F005 


1373 




BEQ BA937 


A932 A9A7 


1374 




LDA $A7 


A934 20FFAE 


1375 




JSR SAEFF 


A937 A561 


1376 


BA937 


LDA Z61 


A939 D005 


1377 




BNE BA940 



;get offset to next ":" 



;add offset to current character pointer 
;( skips statement) 



SA906) 



;set statement separator 
;skip next instruction 
;set line separator 
;save separator character 

;save alternate separator 



; swap separators 

;get next character 

;if end of line 

;or separator reached 

;exit with Y=length scanned 

;else advance pointer 

;if character = quote 

;swap separators and continue 

; continue 



; evaluate expression 
;get current character 
;if not code for GOTO 

;or code for THEN 

;then SYNTAX Error 

;if result of condition true, do action 

;else skip by dropping through to REM 
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1379 


;"REM 


command 




1380 


1 






A93B 2009A9 


1381 


WA93B JSR SA909 


A93E FOBB 


1382 
1383 




BEQ 


BA8FB 




1384 


;THEN 


part of I] 




1385 








A940 207900 


1386 


BA940 


JSR X0079 


A943 B003 


1387 




BCS 


BA948 


A945 4CA0A8 


1388 




JMP 


JA8A0 


A948 4CEDA7 


1389 
1390 


BA948' 


JMP 


SA7ED 




1391 


;"0N" 


command 




1392 


; 






A94B 209EB7 


1393 


WA94B 


JSR 


SB79E 


A94E 48 


1394 




PHA 




A94F C98D 


1395 




CMP 


$8D 


A951 F004 


1396 




BEQ 


BA957 


A953 C989 


1397 


BA953 


CMP 


$89 


A955 D091 


1398 




BNE 


BA8E8 


A957 C665 


1399 


BA957 


DEC 


Z65 


A959 D004 


1400 




BNE 


BA95F 


A95B 68 


1401 




PLA 




A95C 4CEFA7 


1402 




JMP 


JA7EF 


A95F 207300 


1403 


BA95F 


JSR 


X0073 


A962 206BA9 


1404 




JSR 


SA96B 


A965 C92C 


1405 




CMP 


> 


A967 FOEE 


1406 




BEQ 


BA957 


A969 68 


1407 




PLA 




A96A 60 


1408 


BA96A RTS 





;get offset to end of line 

;go advance current character pointer 



;get current character 
;if numeric 

;then execute command GOTO 
;else execute command in A 



;get next integer value into X 
;save current character 
;if not GOSUB 

;or GOTO 

;then SYNTAX Error 

; decrement index 

;if zero 

; restore GOTO or GOSUB code in A 

j and execute command in A 

;else get next character 

igather decimal number into Z14/Z15 

;if ends with a comma 

;then repeat 

;else must be end of statement 

;otherwise force SYNTAX Error 
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A96B 
A%D 
A96F 
A971 
A973 
A975 
A977 
A979 
A97B 
A97D 
A97F 
A981 
A982 
A984 
A985 
A987 
A989 
A98B 
A98D 
A98F 
A991 
A993 
A995 
A997 
A999 
A99B 
A99D 
A99F 
A9A2 



A200 

8614 

8615 

B0F7 

E92F 

8507 

A515 

8522 

C919 

B0D4 

A514 

0A 

2622 

OA 

2622 

6514 

8514 

A522 

6515 

8515 

0614 

2615 

A514 

6507 

8514 

9002 

E615 

207300 

4C71A9 



1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 



; gather decimal number into Z14/Z15 

f 

; gathered from current statement 

;expects A, C and Z to reflect current character 

; returns with A, C and Z reflecting new 

; current character (first character after number) 



SA96B LDX 
STX 
SIX 

JA971 BCS 
SBC 
STA 
LDA 
STA 
CMP 
BCS 
LDA 
ASL 
ROL 
ASL 
ROL 
ADC 
STA 
LDA 
ADC 
STA 
ASL 
ROL 
LDA 
ADC 
STA 
BCC 
INC 

BA99F JSR 
JMP 



$00 

Z14 

Z15 

BA96A 

$2F 

Z07 

Z15 

Z22 

$19 

BA953 

Z14 

A 

Z22 

A 

Z22 

Z14 

Z14 

Z22 

Z15 

Z15 

Z14 

Z15 

Z14 

Z07 

Z14 

BA99F 

Z15 

X0073 

JA971 



;set answer area to zero 

;stop at first non-decimal character 
;convert decimal to binary 
;save it 

;save old high order 

;if # gathered so far >= 6400 

;then SYNTAX Error 

;* 2 

;* 4 

;+ original = * 5 



;* 2 = * 10 
;add new digit 



;get next character 
;and repeat 
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1447 


; "LET 


command 




1448 


; 




A9A5 


1449 


WA9A5 


= A 


A9A5 208BBO 


1450 


SA9A5 


JSR SB08B 


A9A8 8549 


1451 




STA Z49 


A9AA 844A 


1452 




STY Z4A 


A9AC A9B2 


1453 




LDA $B2 


A9AE 20FFAE 


1454 




JSR SAEFF 


A9B1 A50E 


1455 




LDA ZOE 


A9B3 48 


1456 




PHA 


A9B4 A50D 


1457 




LDA ZOD 


A9B6 46 


1458 




PHA 


A9B7 209EAD 


1459 




JSR SAD9E 


A9BA 68 


1460 




PLA 


A9BB 2A 


1461 




ROL A 


A9BC 2090AD 


1462 




JSR SAD90 


A9EF DO 18 


1463 




BNE BA9D9 


A9C1 68 


1464 




PLA 


A9C2 1012 


1465 
1466 


SA9C2 


BPL BA9D6 




1467 


; assi 


gn to iofege 




1468 


; 




A9C4 201 BBC 


1469 




JSR SBC1B 


A9C7 20BFB1 


1470 




JSR SB1BF 


A9CA AOOO 


1471 




LDY $00 


A9CC A564 


1472 




LDA Z64 


A9CE 9149 


1473 




STA (Z49),Y 


A9D0 C8 


1474 




INY 


A9D1 A565 


1475 




LDA Z65 


A9D3 9149 


1476 




STA (Z49),Y 


A9D5 60 


1477 
1478 




RTS 




1479 


: assign to flp 




1480 






A9D6 4CD0BB 


1481 
1482 


BA9D6 


JMP JBBDO 




1483 


; assign to string 




1484 


• 




A9D9 6b 


1465 


BA9D9 


PLA 


A9DA A44A 


1486 


SA9DA 


LDY Z4A 


A9DC COBF 


1467 




CPY $BF 


A9DL D04C 


1488 




BNE BAA2C 



; gather name and get ptr to variable 
; save variable pointer 

; load code for "-" 
;must be next character 

; save integer flag of variable 

isave string flag of variable 

; evaluate expression 

; restore string flag of variable 

;also into C flag 

; check value for same type 

;branch if string to be assigned 

; restore integer flag of variable 

; branch if flp accu to be stored 



; round flp accu according to guard bit 
; convert flp accu to integer 

;get most significant byte of integer 
; store into + of variable 

;get least significant byte of integer 
; store into + 1 of variable 



;go store flp value 



; remove integer flag from stack 
; if high byte of pointer to variable 
;not same as address of dummy variable 
; then go do normal variable 
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1490 


; assign to 


TI$ 




1491 








A9E0 20A6B6 


1492 




JSR 


SB6A6 


A9E3 C906 


1493 




CMP $06 


A9E5 D03D 


1494 




BNE 


BAA24 


A9E7 AOOO 


1495 




LDY 


$00 


A9E9 8461 


1496 




STY 


Z61 


A9EB 8466 


1497 




STY 


Z66 


A9ED 8471 


1498 


BA9ED 


STY 


Z71 


A9EF 201DAA 


1499 




JSR 


SAA1D 


A9F2 20E2BA 


1500 




JSR 


SBAE2 


A9F5 E671 


1501 




INC 


Z71 


A9F7 A471 


1502 




LDY 


Z71 


A9F9 201DAA 


1503 




JSR 


SAA1D 


A9FC 200CBC 


1504 




JSR 


SBCOC 


A9FF AA 


1505 




TAX 




AAOO F005 


1506 




BEQ 


BAA07 


AA02 E8 


1507 




IKX 




AA03 8A 


1508 




TXA 




AA04 20EDBA 


1509 




JSR 


SBAED 


AA07 A471 


1510 


BAA07 


LDY 


Z71 


AA09 C8 


1511 




INY 




AAOA C006 


1512 




CPY 


$06 


AAOC DODF 


1513 




BNE 


BA9ED 


AAOE 20E2BA 


1514 




JSR 


SBAE2 


AA11 209BBC 


1515 




JSR SBC9B 


AA14 A664 


1516 




LDX 


Z64 


AA16 A463 


1517 




LDY 


Z63 


AA18 A565 


1518 




LDA 


Z65 


AA1A 4CDBFF 


1519 
1520 




JMP 


XFFDB 




1521 


;add 


next 


digit t( 




1522 


» 






AA1D B122 


1523 


SAA1D 


i LDA 


(Z22),Y 


AA1F 208000 


1524 




JSR 


X0080 


AA22 9003 


1525 




BCC 


BAA27 


AA24 4C48B2 


1526 
1527 


BAA24 


JMP 


JB248 


AA27 E92F 


1528 


BAA27 


SBC 


$2F 


AA29 4C7EBD 


1529 




JMP 


JBD7E 



;de-allocate temporary string 
; should be 6 characters long 
;else ILLEGAL QUANTITY Error 

; store in flp accu 

;set index in string 
;add next digit to flp accu 
;multiply flp accu by 10 
; increment index 

;add next digit to flp accu 

;move rounded flp accu to 2nd flp accu 

;get exponent 

;if zero, skip next multiplication 

; increment exponent 

;*2 in second flp accu 

;add 2nd flp accu to flp accu and *2 

;get index 

;repeat until 6 characters processed 

;multiply flp accu by 10 

; convert flp accu to 4 byte integer 



;set real time clock 

flp accu 

;get character from string 
; check for numeric character 

; ILLEGAL QUANTITY Error if not 

; convert decimal to binary 

;add signed integer from A to flp accu 
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AA2C 
AA2E 
AA30 
AA32 
AA34 
AA36 
AA37 
AA39 
AA3B 
AA3D 
AA3F 
AA41 
AA43 
AA45 
AA47 
AA49 
AA4B 
AA4D 
AA4F 

AA52 
AA54 
AA56 
AA59 
AA5B 
AA5iJ 
AA5F 
AA61 
AA64 
AA66 



A002 

B164 

C534 

9017 

D007 

86 

B164 

C533 

900L 

A465 

C42E 

9008 

D00D 

A564 

C52D 

BOO 7 

A564 

A465 

4C68AA 

AOOO 

B164 

2075B4 

A550 

A451 

856F 

8470 

207AB6 

A961 

AOOO 



AA68 
AA6A 
AA6C 
AA6F 
AA71 
AA73 
AA75 
AA76 
AA78 
AA7A 
AA7B 
AA7D 
AA7F 



8550 

8451 

20DBB6 

AOOO 

B150 

9149 

CS 

B150 

9149 

C8 

B150 

9149 

60 



1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
L544 
1545 
1546 
1547 
1543 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 



; assign to normal string variable 



BAA2C LDY $02 

LDA (Z64),Y 
CMP Z34 
BCC BAA4B 
BI1E BAA3D 
DEY 

LDA (Z64),Y 
CMP Z33 
BCC BAA4B 

BAA3D LDY Z65 
CPY Z2E 
BCC BAA4B 
BNE BAA52 
LliA Z64 
CMP Z2D 
BCS BAA52 

BAA4B LDA Z64 
LDY Z65 
JMP JAA68 

BAA52 LDY $00 

LDA (Z64) Y 
JSR SB475 
L1)A Z50 
LDY Z51 
STA Z6F 
STY Z70 
JSR SB67A 
LDA <Z61 
LDY >Z61 



; If pointer to string 

; below allocated string area 

; then move descriptor 



; be low end of program 
; (descriptor stack) 



; then go move descriptor 



;else 

;get length of string 

; allocate area 

; store string pointer 



;move string into allocated area 
; set AY to new descriptor 



move descriptor into variable 

;set pointer to descriptor from AY 
; check descriptor stack 



JAA68 STA Z50 
STY Z51 
JSR SB6DB 
LDY $00 
LDA (Z50),Y 
STA (Z49),Y 
I NY 

LDA (Z50),Y 
STA (Z49),Y 
IKY 

LDA (Z50),Y 
STA (Z49),Y 
RTS 



;move descriptor 
; to variable 



; also + 1 
;and + 2 
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1580 


;"PRII 


JT#" 


command 






1581 


• 








AA80 2086AA 


1582 


WAA80 


JSR SAA86 


; execute CMD and PRINT 


AA83 4CB5AB 


1583 
1584 




JMP 


JABB5 


; reset CMD output file # 




1585 


;"CMD' 


' command 






1586 


j 








AA86 


1587 


WAA86 


= 


* 




M86 209EB7 


1588 


SAA86 


JSR SB79E 


;get next Integer value in X 


AA89 F005 


1589 




BEQ 


BAA90 


;i£ more parameters 


AA8B A92C 


1590 




LDA 


» 


;next parameter must be a comma 


AA8D 20FFAE 


1591 




JSR 


SAEFF 




AA90 08 


1592 


BAA90 


PHP 




;save flags 


AA91 8613 


1593 




SIX 


Z13 


; store new CMD file it 


AA93 2018E1 


1594 




JSR XE118 


; select output device 


AA96 28 


1595 




PLP 




; restore flags 


AA97 4CA0AA 


1596 
1597 




JMP 


JAAAO 


; execute command PRINT 


AA9A 202 1AB 


1598 


BAA9A 


JSR 


SAB21 


;print BASIC string from Z22/Z23 


AA9D 207900 


1599 


BAA9D 


JSR X0079 


;get current character 




1600 


j 










1601 


; "PRINT" command 






1602 


» 








AAAO 


1603 


WAAAO 


= 


* 




AAAO F035 


1604 


JAAAO 


BEQ 


SAAD7 


;if no parameters, end line on CMD fiJ 


AAA2 F043 


1605 


JAAA2 


BEQ 


BAAE7 


;lf end of statement, return 


AAA4 C9A3 


1606 




CMP 


$A3 


;if TAB( 


AAA6 F050 


1607 




BEQ 


BAAF8 


;do TAB/SPC routine 


AAA8 C9A6 


1608 




CMP 


$A6 


;if SPC( 


AAAA 18 


1609 




CLC 






AAAB F04B 


1610 




BEQ 


BAAF8 


;do TAB/SPC routine 


AAAD C92C 


1611 




CMP 


» 


;if comma 


AAAF F037 


1612 




BEQ 


BAAE8 


;go do fixed tab 


AAB1 C93B 


1613 




CMP 


~ ; 


;if semicolon 


AAB3 F05E 


1614 




BEQ 


BAB13 


; ignore 


AAB5 209EAD 


1615 




JSR 


SAD9E 


jevaluate expression 


AAB8 240D 


1616 




BIT 


ZOD 


;if string 


AABA 30DE 


1617 




BMI 


BAA9A 


; print BASIC string 


AABC 20DDBD 


1618 




JSR 


SBDDD 


;convert flp accu to string 


AABF 2087B4 


1619 




JSR 


SB487 


;get descriptor of string in flp accu 


AAC2 2021AB 


1620 




JSR 


SAB21 


;print BASIC string from Z22/Z23 


AAC5 203BAB 


1621 




JSR 


SAB3B 


; print Cursor Right on CMD output fil< 


AAC8 D0D3 


1622 




BNE 


BAA9D 


; repeat 
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AACA A900 
AACC 9D0002 
AACF A2FF 
AAD1 A001 
AAD3 A513 
AAD5 DOIO 



AAD7 A90D 
AAD9 2047AB 
AADC 2413 
AADE 1005 
AAEO A90A 
AAE2 2047AB 
AAE5 49FF 
AAE7 60 



1624 ;end statement in buffer and on screen 

1625 ; 

1626 ;X=index beyond last byte in buffer 

1627 ; 

1628 JAACA LDA $00 

1629 STA X0200.X 

1630 LDX $FF 

1631 LDY $01 

1632 LDA Z13 

1633 BNE BAAE7 

1634 ; 

1635 ;end line on CMD output file 

1636 ; 



;add 00 to statement in buffer 



; reset index to beginning of statement 
;if CMD output file = default 
;then end line on CMD output file 



1637 SAAD7 LDA $0D 

1638 JSR SAB47 

1639 BIT Z13 

1640 BPL BAAE5 

1641 LDA $0A 

1642 JSR SAB47 

1643 BAAE5 EOR $FF 

1644 BAAE7 RTS 
1645 

routine for printing blanks and tabs 



; print a Return 

;on CMD output file 

;if file number < 128 

;do not add Linefeed 

;else print a Linefeed on CMD file 

; condition flags 



AAE8 
AAE9 
AAEC 
AAED 
AAEE 
AAFO 
AAF2 
AAF4 
AAF6 
AAF8 
AAF9 
AAFA 
AAFD 
AAFF 
AB02 
AB04 
AB06 
AB07 
AB09 
ABOA 
ABOC 
ABOE 
ABOF 
AB10 
ABU 
AB13 
AB16 
AB19 
ABIC 
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20F0FF 

98 

38 

E90A 

BOFC 

49FF 

6901 

D016 

08 

38 

20F0FF 

8409 

209BB7 

C929 

D059 

28 

9006 

8A 

E509 

9005 

AA 

E8 

CA 

D006 

207300 

4CA2AA 

203BAB 

D0F2 



1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 BAAEE 

1656 

1657 

1658 

1659 



fixed tabs at BAAE8 
TAB( & SPC( at BAAF8 



BAAE8 SEC 

JSR XFFFO 
TYA 
SEC 

SBC $0A 
BCS BAAEE 
EOR $FF 
ADC $01 
BNE BABOE 



;read cursor position into XY 



; convert column to modulo 10 (-10 to -1) 



1660 BAAF8 PHP 



1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 



; complement 
;A = # blanks 
;skip if zero 
;save status 



to insert 



SEC 

JSR XFFFO 

STY Z09 

JSR SB79B 

CMP ') 

BNE BAB5F 

PLP 

BCC BABOF 

TXA 

SBC Z09 

BCC BAB13 



1672 BABOE TAX 

1673 BABOF INX 

1674 BAB10 DEX 

1675 BNE BAB19 

1676 BAB13 JSR X0073 

1677 JMP JAAA2 

1678 BAB19 JSR SAB3B 

1679 BNE BAB10 



;read cursor position again 

;save column 

; evaluate expression into X 

;if not ending with ")" 

;then SYNTAX Error 

[restore status 

;if code for TAB( 

;get value in A 

; subtract current character position 

;skip if negative 



;if zero 

Jget next character 

; return to PRINT 

; print Cursor Right on CMD output file 

;X times 



38 



ABIE 2087B4 



1.681 ; print string from AY 

1682 ; 

1683 SAB1E JSR SB487 ;raove string descriptor into flp accu 

1684 ; 

1685 ; print BASIC string from Z22/Z23 

1686 ; 
;get text pointer into Z22/Z23 

; save string length 



; decrement length pending 

;exit upon coupletion 

;get next character 

; print it on CMD output file 

; advance pointer 

;if character printed was a R 

; then do dummy instruction 
; repeat 



AB21 20A6B6 


1687 ! 


5AB21 


JSR SB6A6 


AB24 AA 


1688 




TAX 


AB25 AO00 


1689 




LDY $00 


AB27 ES 


1690 




INX 


AB28 CA 


1691 


BAB28 


DEX 


AB29 FOBC 


1692 




BEQ BAAE, 


AB2b B122 


1693 




LDA (Z22), 


AB2D 2047AB 


1694 




JSR SAB47 


AL30 C8 


1695 




INY 


AB31 C9GD 


1696 




CMP $0D 


AB33 D0F3 


1697 




BNE BAB28 


AB35 20E5AA 


1698 




JSR BAAE5 


AB38 4C28AB 


1699 
1700 




JMP BAB28 




1701 


; print a charact 




1702 






AB3B A513 


1703 


SAB3B 


LDA Z13 


AB3D F0O3 


1704 




BEQ BAB42 


AB3F A920 


1705 




LDA $20 


AB41 2C 


1706 




.BY $2C 


AB42 A91D 


1707 


BAB42 


LDA $1D 


AB44 2C 


1708 




.BY $2C 


AB45 A93F 


1709 


SAB45 


LDA $3F 


AB47 200CE1 


1710 


SAB47 


JSR XE10C 


AB4A 29FF 


1711 




AND $FF 


AI)4C 60 


1712 




RTS 



a character on CMD output file 



; if CMD output file is default 

; print Cursor Right 

;else use space 

;skip next instruction 

;load Cursor Right 

;skip next instruction 

;load "?" 

; output a character 

;and exit with flags corresponding 

; to original A 
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1714 


;read errors 




1715 


t 




AB4D A511 


1716 


JAB4D IDA Zll 


AB4F F011 


1717 




BEQ BAB62 


AB51 3004 


1718 




BMI BAB57 


AB53 AOFF 


1719 




LDY $FF 


AB55 D004 


1720 




BNE BAB5B 


AB57 A53F 


1721 


BAB57 LDA Z3F 


AB59 A440 


1722 




LDY Z40 


AB5B 8539 


1723 


BAB5B SIA Z39 


AB5D 84 3 A 


1724 




STY Z3A 


AB5F 4C08AF 1725 


BAB5F JMP JAF08 


AB62 A513 


1726 


BAB62 


'. LDA Z13 


AB64 F005 


1727 




BEQ BAB6B 


AB66 A218 


1728 




LDX $18 


AB68 4C37A4 


1729 
1730 




JMP JA437 


AB6B A90C 


1731 


BAB6B 


! LDA <TAD0C 


AB6D AOAD 


1732 




LDY >TADOC 


AB6F 201EAB 


. 1733 




JSR SAB1E 


AB72 A53D 


1734 




LDA Z3D 


AB74 A43E 


1735 




LDY Z3E 


AB76 857A 


1736 




STA Z7A 


AB78 847B 


1737 




STY Z7B 


AB7A 60 


1738 
1739 




RTS 




1740 


; "GET 


command 




1741 


> 




AB7B 20A6B3 


1742 


WAB7B 


JSR SB3A6 


AB7E C923 


1743 




CMP '# 


AB80 D010 


1744 




BNE BAB92 


AB82 207300 


1745 




JSR X0073 


AB85 209EB7 


1746 




JSR SB79E 


AB88 A92C 


1747 




LDA ', 


AB8A 20FFAE 


1748 




JSR SAEFF 


AB8D 8613 


1749 




STX Z13 


AB8F 201EE1 


1750 




JSR XE11E 


AB92 A201 


1751 


BAB92 


LDX $01 


AB94 A002 


1752 




LDY $02 


AB96 A900 


1753 




LDA $00 


AB98 8D0102 


1754 




STA X020CH-1 


AB9B A940 


1755 




LDA $40 


AB9D 200FAC 


1756 




JSR SACOF 


ABAO A613 


1757 




LDX Z13 


ABA2 D013 


1758 




BNE BABB7 


ABA4 60 


1759 
1760 : 




RTS 




1761 : 


;" INPUT*" command 




1762 ; 






ABA5 209EB7 


1763 WABA5 


JSR SB79E 


ABA8 A92C 


1764 




LDA ', 


ABAA 20FFAE 


1765 




JSR SAEFF 


ABAD 8613 


1766 




STX Z13 


ABAF 201EE1 


1767 




JSR XE11E 


ABB2 20CEAB 


1768 




JSR SABCE 


ABB5 A513 


1769 JABB5 


LDA Z13 


ABB7 20CCFF 


1770 BABB7 


JSR XFFCC 


ABBA A200 


1771 




LDX $00 


ABBC 8613 


1772 




STX Z13 


ABBE 60 


1773 




RTS 



;sklp if INPUT 

;lf GET 

;set statement # invalid 

;for READ 

;get DATA statement # 

; store statement # 

; SYNTAX Error 

;lf INPUT and not default CMD file 

; point to FILE DATA message 
; print error 

;if INPUT and default CMD output file 

; index REDO FROM START message 

; print message 

;move pointer to current statement 

;into current character pointer 



; check for direct mode 

;if next character is it sign 

;then get next character 
;and next integer value in X 

;next character must be a comma 
;set new CMD input file 
;open device for input 
;set pointer to end of line 



;set character string terminator 

;set code for GET 

; interpret data 

;get CMD output file 

;if not default go reset it 



;get next integer value in X 

;next character must be a comma 

;set CMD file # 

;open device for input 

;do Input 

;get CMD file number 

; deselect all devices 

;set CMD file to default 
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1775 ; 


; "INPUT" command 




1776 ; 








ABBF C922 


1777 WABBF 


CMP 


" " 


ABC1 DOOB 


1778 




BNE 


SABCE 


ABC3 20BDAE 


1779 




JSR 


SAEBD 


ABC6 A93B 


1780 




LDA 


» 


ABC8 20FFAE 


1781 




JSR 


SAEFF 


ABCB 202 1AB 


1782 




JSR 


SAB21 


ABCE 20A6B3 


1783 ! 


SABCE 


JSR 


SB3A6 


ABD1 A92C 


1784 




LDA 


» 


ABD3 8DFF01 


1785 




STA 


X01FF 


ABD6 20F9AB 


1786 : 


BABD6 


JSR 


SABF9 


ABD9 A513 


1787 




LDA 


Z13 


ABDB FOOD 


1788 




BEQ 


BABEA 


ABDD 20B7FF 


1789 




JSR 


XFFB7 


ABEO 2902 


1790 




AND 


$02 


ABE2 F006 


1791 




BEQ 


BABEA 


ABE4 20B5AB 


1792 




JSR 


JABB5 


ABE7 4CF8A8 


1793 
1794 




JMP 


JA8F8 


ABEA AD0002 


1795 


BABEA 


LDA 


X0200 


ABED D01E 


1796 




BNE 


BACOD 


ABEF A513 


1797 




LDA 


Z13 


ABF1 DOE 3 


1798 




BNE 


BABD6 


ABF3 2006A9 


1799 




JSR 


SA906 


ABF6 4CFBA8 


1800 
1801 




JMP 


BA8FB 




1802 


;get 


line 


Into 1 




1803 


» 






ABF9 A513 


1804 


SABF9 


LDA 


Z13 


ABFB D006 


1805 




BNE 


BAC03 


ABFD 2045AB 


1806 




JSR 


SAB45 


ACOO 203BAB 


1807 




JSR 


SAB3B 


AC03 4C60A5 


1808 
1809 


BAC03 

> 


JMP 


SA560 




1810 


;"READ" cc 


romand 




1811 


j 






AC06 A641 


1812 


WAC06 


LDX 


Z41 


AC08 A442 


1813 




LDY 


Z42 


ACOA A998 


1814 




LDA 


$98 


ACOC 2C 


1815 




.BY 


$2C 


ACOD A900 


1816 


BACOD 


i LDA 


$00 


ACOF 8511 


1817 


SACOF 


' STA 


Zll 


AC11 8643 


1818 




STX 


Z43 


AC13 8444 


1819 




STY 


Z44 


AC15 208BB0 


1820 


JAC15 


i JSR 


SB08B 


AC18 8549 


1821 




STA 


Z49 


AC1A 844A 


1822 




STY 


Z4A 


AC1C A57A 


1823 




LDA 


Z7A 


AC1E A47B 


1824 




LDY 


Z7B 


AC20 854B 


1825 




STA 


Z4B 


AC22 844C 


1826 




STY 


Z4C 


AC24 A643 


1827 




LDX 


Z43 


AC26 A444 


1828 




LDY 


Z44 


AC28 867A 


1829 




STX 


Z7A 


AC2A 847B 


1830 




STY 


Z7B 


AC2C 20790C 


1 1831 




JSR X0079 


AC2F D020 


1832 




BNE 


BAC51 


AC31 2411 


1833 




BIT 


Zll 


AC33 500C 


1834 




BVC 


BAC41 



;1£ next character Is a quote 

;get descriptor of literal prompt string 
;if next character is not a ";" 

;then SYNTAX Error 

; print prompt string 

; place a comma before input string 

;get input line into input buffer 

;if CMD file 

;is not default 

;and ST does not show 

;a Read Error 

;reset CMD file to default 
; execute command DATA 

;else if not a null line 

; interpret data 

;if null line and CMD file not default 

;skip null line 

;get end of line 

;skip rest of statement 



;if CMD file = default 

; print "?" on CMD file 

;print Cursor Right on CMD file 

;go get statement into input buffer 



;get current DATA address into XY 

;set READ code 

;skip next instruction 

;for INPUT, set A to 

; save entry mode 

;save XY into temporary read pointer 

; gather name & get pointer to variable 
; store pointer 

;get current character pointer 

;save it ■ 

;get temporary read pointer 

;use it as current character pointer 

;get current character 

;if end of statement, get next character 

;if GET mode 
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AC35 

AC38 

AC3E 

AC3D 

AC3F 

AC41 

AC43 

AC45 

AC47 

AC4A 

AC4D 

AC4F 

AC51 

AC54 

AC56 

AC56 

AC5A 

AC5C 

AC5D 

AC5F 

AC61 

AC63 

AC65 

AC67 

AC69 

AC6B 

AC6D 

AC6F 

AC71 

AC72 

AC74 

AC76 

AC78 

AC7A 

AC7C 

AC7D 

AC80 

AC83 

AC86 



2024E1 

8DOO02 

A2FF 

A001 

DOOC 

3075 

A513 

D003 

2045AB 

20F9AB 

86 7A 

847B 

207300 

240D 

1031 

2411 

5009 

E8 

86 7 A 

A900 

8507 

FOOC 

8507 

C922 

F007 

A93A 

8507 

A92C 

18 

8508 

A57A 

A47B 

6900 

9001 

C8 

208DB4 

20E2B7 

20DAA9 

4C91AC 



AC89 
AC8C 
AC8E 
AC91 
AC94 
AC96 
AC98 
AC9A 

AC9D 
AC9F 
ACAl 
ACA3 
ACA5 
ACA7 
ACA9 
ACAB 
ACAD 
ACBO 
ACB2 



20F3BC 

A50E 

20C2A9 

207900 

F007 

C92C 

F003 

4C4DAB 

A57A 

A47B 

8543 

8444 

A54B 

A44C 

857A 

847B 

207900 

F02D 

20FDAE 



1835 

1836 

1837 

1836 

1839 

1840 BAC41 

1841 

1842 

1843 

1844 BAC4A 

1845 BAC4D 
1846 

1847 BAC51 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 

1857 BAC65 
1858 
1859 
1860 
1861 
1862 

1863 BAC71 

1864 BAC72 
1865 
1866 
1867 
1868 
1869 

1870 BAC7D 
1371 
1872 
1873 

1874 ; 

1875 BAC89 



JSR XE124 
STA X0200 
LDX $FF 
LDY $01 
BNE BAC4U 
BMI BACBC 
LDA Z13 
BHE BAC4A 
JSR SAB45 
JSR SABF9 
STX Z7A 
STY Z7B 
JSR X0073 
BIT ZOD 
BPL BAC89 
BIT Zll 
BVC BAC65 
INX 

STX Z7A 
LDA $00 
STA Z07 
BEQ BAC71 
STA Z07 
CMP — 
BEQ BAC72 
LDA ': 
STA Z07 
LDA ', 
CLC 

STA Z08 
LDA Z7A 
LDY Z7B 
ADC $00 
BCC BAC7D 
INY 

JSR SB48D 
JSR SB7E2 
JSR SA9DA 
JMP JAC91 



1876 

1877 

1878 JAC91 

1879 

1880 

1881 

1882 

1883 ; 

1884 BAC9D 
1385 

1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 



JSR SBCF3 
LDA ZOE 
JSR SA9C2 
JSR X0079 
BEQ BAC9D 
CMP ', 
BEQ BAC9D 
JMP JAB4D 

LDA Z7A 
LDY Z7B 
STA Z43 
STY Z44 
LDA Z4B 
LDY Z4C 
STA Z7A 
STY Z7B 
JSR X0079 
BEQ BACDF 
JSR SAEFD 



;get a character from CMD file 
; save character in input buffer 

;move buffer address - 1 into XY 

;if READ go get next DATA element 
;for INPUT if CMD file - default 

; print "?" on CMD file 

;get new input line 

; store pointer into current pointer 

;get next pointer 

; if not a string variable 

; and GET mode 



; skip character 

; set null as terminator 

; if string variable and READ or INPUT 
; store character as terminator 
; if not quote character 
; store ":" as terminator 



;and 



as an alternative terminator 



; skip initial quote if any 



;get descriptor of string into flp accu 
;move text pointer into current pointer 
; assign to string 



; convert string into flp accu 
;load integer flag 
; assign to integer or real 
;get current character 
;must be end of. statement 
;or a comma 

;else read error 

;move current character pointer 

; into temporary read pointer 

;move saved current character pointer 

; to current character pointer 

;get current character 
;must be end of statement 
; or a comma 
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ACB5 4C15AC 



ACB8 

ACBB 

ACBC 

ACBD 

ACBF 

ACC1 

ACC2 

ACC4 

ACC6 

ACC7 

ACC9 

ACCB 

ACCC 

ACCE 

ACCF 

ACD1 

ACD4 

ACD7 

ACD8 

ACDA 

ACDC 



2006A9 

C8 

AA 

D012 

A20D 

C8 

B17A 

F06C 

C8 

B17A 

853F 

C8 

B17A 

C8 

8540 

20FBA8 

207900 

AA 

E083 

DODC 

4C51AC 



ACDF A543 
ACE1 A444 
ACE3 A611 
ACE5 1003 
ACE7 4C27A8 

ACEA AOOO 
ACEC B143 
ACEE FOOB 
ACFO A513 
ACF2 D007 
ACF4 A9FC 
ACF6 AOAC 
ACF8 4C1EAB 

ACFB 60 



ACFC 3F4558 
ADOC 3F5245 
AD1C ODOO 



1895 JMP 

1896 ; 

1897 BACB8 JSR 

1898 INY 

1899 TAX 

1900 BNE 

1901 LDX 

1902 INY 

1903 LDA 

1904 BEQ 

1905 INY 

1906 LDA 

1907 STA 

1908 INY 

1909 LDA 

1910 INY 

1911 STA 

1912 BACD1 JSR 

1913 JSR 

1914 TAX 

1915 CPX 

1916 BNE 

1917 JMP 

1918 ; 

1919 BACDF LDA 

1920 LDY 

1921 LDX 

1922 BPL 

1923 JMP 

1924 ; 

1925 BACEA LDY 

1926 LDA 

1927 BEQ 

1928 LDA 

1929 BNE 

1930 LDA 

1931 LDY 

1932 JMP 

1933 ; 

1934 BACFB RTS 

1935 ; 

1936 ;messages 

1937 ; 

1938 TACFC .BY 

1939 TADOC .BY 

1940 .BY 



JAC15 ;lf so repeat read 

SA906 ;lf end of line during READ, get index 
;to end of statement and bump it 
;move last character 

BACD1 ;if zero, 

$0D ; point to OUT OF DATA message 

(Z7A),Y ;if high of ptr to next statement zero 
BAD32 ; fatal error 

(Z7A),Y ;move low byte of next statement # 
Z3F ;into DATA statement t 



(Z7A),Y ;high byte also 



Z40 

BA8FB 

X0079 

$83 

BACB8 

BAC51 

Z43 

Z44 

Zll 

..ACEA 

BA827 

$00 

(Z43),Y 

BACFB 

Z13 

BACFB 

<TACFC 

>TACFC 

SAB IE 



;add offset to current character pointer 
;get current character 

;if not code for DATA 
;go skip statement 
;set READ pointer 

;at end of READ statement 
;get temporary read pointer 
;if GET or READ mode 

;go set READ pointer 

;if INPUT 

;must be end of line 

;else, if CMD file - default 

;set AY to message EXRTA IGNORED 

; print message 



used during READ 

$3F,'E,'X,-T,'R,'A,' ,'I,'G,'N,-0,'R,'E,'D,$0D,$00 
$3F,-R,'E,-D,'0,' ,'F,'R,'0,-M,- .'S.'T.'A/R.'T 
$0D,$0O 
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AD1E 
AD20 
AD22 
AD24 
AD27 
AD29 
AD2B 
/J)2E 
AD30 
AD32 



D004 

AOOO 

F003 

208BBO 

8549 

844A 

208AA3 

F005 

A20A 

4C37A4 



AD35 

AL36 

AD37 

AD38 

AD3A 

AD3B 

AD3D 

AD3F 

AD40 

AD42 

AD45 

AL46 

AD49 

AD4B 

AD4D 

AD4F 

AD52 

AD55 

AD57 

AD5A 

AD5B 

AD5C 

AD5F 

AI)61 

AD64 

AD66 

AD69 

AD6B 

AU6E 

AD70 

AD73 

AD75 



9A 

8A 

18 

6904 

48 

6906 

8524 

68 

A001 

20A2BB 

BA 

BD0901 

8566 

A549 

A44A 

2067B8 

20D0BB 

A001 

205CBC 

BA 

38 

FD0901 

F017 

BD0F01 

8539 

BE1001 

853A 

BD1201 

857A 

BD1101 

857B 

4CAEA7 



AD78 
AD79 
AD7B 
AD7C 
AD7L 
AD80 
AD82 
AD84 
aD87 



8A 

6911 

AA 

9A 

207900 

C92C 

D0F1 

207300 

2024AU 



1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1S88 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 



; "NEXT " command 

WAD IE BNE SAD24 
LDY $00 
BEQ BAD27 

SAD24 JSR SB08B 

BAD27 STA Z49 
STY Z4A 
JSR SA38A 
BEQ BAD35 
LDX $0A 

BAD32 JMP JA437 



BAD35 IXS 

TXA 

CLC 

ADC 

PHA 

ADC 

STA 

PLA 

LDY 

JSR 

TSX 

LDA 

STA 

LDA 

LDY 

JSR 

JSR 

LDY 

JSR 

TSX 

SEC 

SBC 

BEQ 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

BAD75 JMP 



$04 

$06 
Z24 

$01 
SBBA2 

X0100+9.X 

Z66 

Z49 

Z4A 

SB867 

JBBDO 

$01 

SBC5D 



XO 100+9 X 

BAD78 

XO 100+15 X 

Z39 

XO 100+16, X 

Z3A 

XO 100+18, X 

Z7A ; 

X0100+17,X 

Z7B 

JA7AE ; 



; if no parameters 

;set index pointer to variable 

;else gather name & get ptr to variable 
; save pointer 

;get corresponding FOR block 

;if not found, 

; error NEXT WITHOUT FOR 

; if found remove everything on top 



;get stack index of STEP value (+3) 



;save stack index of TO value (+9) 

,high order byte of stack pointer 

; restore flp accu 

;get top index 

;get sign of STEP value (+ 8) 

; restore sign byte of flp accu 

;AY points to FOR variable 

;add flp accu to f at AY 

; store flp accu into FOR variable 

; compare flp accu to upper limit 
;get top index 

;if different from sign of STEP 



restore statement If to start of loop 



restore character ptr to start of loop 



go execute next statement 



BAD 7 8 TXA 

ADC $11 
TAX 
TXS 

JSR X0O79 
CMP ', 
BME BAD75 
JSR X0073 
JSR SAD24 



; add 17 to stack pointer 
; to remove FOR block 

;get current character 

; if a comma then execute next statement 

; else get next character 

; and go repeat NEXT statement 
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AD8A 209EAD 

AD8D 18 
AD8E 24 



AD8F 38 



AD90 240D 
AD92 3003 
AD94 B003 
AD96 60 

AD97 BOFD 
AD99 A216 
AD9B 4C37A4 



;get next value 

;set string not wanted 
;sklp next instruction 



1998 ;get next non-string value 

1999 ; 

2000 SAD8A JSR SAD9E 

2001 ; 

2002 SAD8D CLC 
20(33 .BY $24 

2004 ; 

2005 ; check value to be string 

2006 ; 

2007 SAD8F SEC ;set string wanted 

2008 ; 

2009 ; check value accoring to C flag 
2010 



2011 SAD90 BIT Z0D 

2012 BMI BAD97 

2013 BCS BAD99 

2014 BAD96 RTS 

2015 ; 

2016 BAD97 BCS BAD96 

2017 BAD99 LDX $16 

2018 JMP JA437 

2019 ; 

2020 ;evaluate expression 

2021 ; 



AD9E A67A 


2022 SAD9E 


LDX 


Z7A 


ADA0 D002 


2023 


BNE 


BADA4 


ADA2 C67B 


2024 


DEC 


Z7B 


ADA4 C67A 


2025 BADA4 


DEC 


Z7A 


ADA6 A200 


2026 


LDX 


$00 


ADA8 24 


2027 


.BY 


$24 


ADA9 48 


2028 JADA9 


PHA 




ADAA 8A 


2029 


TXA 




ADAB 48 


2030 


PHA 




ADAC A901 


2031 


LDA 


$01 


ADAE 20FBA3 


2032 


JSR 


SA3FB 


ADB1 2083AE 


2033 


JSR 


SAE83 


ADB4 A900 


2034 


LDA 


$00 


ADB6 854D 


2035 


STA 


Z4D 


ADB8 207900 


2036 JADB8 


JSR 


XO079 


ADBB 38 


2037 JADBB 


SEC 




ADBC E9B1 


2038 


SBC 


$B1 


ADBE 9017 


2039 


BCC 


BADD7 


ADCO C903 


2040 


CMP $03 


ADC2 B013 


2041 


BCS 


BADD7 


ADC4 C901 


2042 


CMP 


$01 


ADC6 2A 


2043 


ROL 


A 


ADC7 4901 


2044 


EOR 


$01 


ADC9 454D 


2045 


EOR 


Z4D 


ADCB C54D 


2046 


CMP 


Z4D 


ADCD 9061 


2047 


BCC 


BAE30 


ADCF 854D 


2048 


STA 


Z4D 


ADD1 207300 


2049 


JSR X0073 


ADD4 4CBBAD 


2050 
2051 ; 


JMP 


JADBB 


ADD7 A64D 


2052 BADD7 


LDX 


Z4D 


ADD9 D02C 


2053 


BNE 


BAE07 


ADDB B07B 


2054 


BCS 


BAE58 


ADDD 6907 


2055 


ADC 


$07 


ADDF 9077 


2056 


BCC 


BAE58 


ADE1 650D 


2057 


ADC 


ZOD 



;test string flag 

;if not string 

;and string wanted, error 

;else return 

;if string and string wanted, return 
;if string and string not wanted, index 
;TYPE MISMATCH and print error 



; decrement character pointer 



; initial priority 
;skip next instruction 
; save <=> code 

;save priority 

;one slot on stack wanted 

;else error OUT OF MEMORY Error 

;get value of next operand in flp accu 

; initial <=> code for next diadic 
;get current character 

; subtract code for > 
; branch if lower than > 

;or if higher than < 

; compute bits for <=> 

;bit 2 for <, 1 for = and for > 

;add to existing <=> code 

;if bit added for the second time 

;then SYNTAX Error 

;get next character 
;and repeat 



;if no <=> code 

;then end at non-diadic character 

; diadic index 0-6 



;add string flag + carry 
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BNE BADK8 
JMP JB63D 



2061 BADE8 ADC $FF 



ADE3 D003 2058 
ADE5 4C3DB6 2059 
2060 
ADE8 69FF 
ADEA 8522 
ADEC 0A 
ADED 6522 
ADEF AS 
ADFO 68 

ADF1 D980A0 2067 
ADF4 B067 2068 
ADF6 208DAD 2069 
ADF9 48 2070 BADF9 PHA 
ADFA 2020AE 2071 JADFA JSR SAE20 



2062 
2063 
2064 
2065 



STA Z22 
ASL A 
ADC Z22 
TAY 
2066 BADFO PLA 

CMP TA080.Y 
BCS BAE5D 
JSR SAD8D 



;if still zero 

; apply diadlc operator 

;make Index 0-6 again 



'+" on strings 



ADFD 68 
ADFE A44B 
AEOO 1017 
AE02 AA 
AE03 F056 
AE05 D05F 
AE07 460D 
AE09 8A 
AEOA 2A 
AEOB A67A 
AEOD D002 
AEOF C67B 
AE11 C67A 
AE13 A01B 
AE15 854D 
AE17 D0D7 



2072 
2073 
2074 
2075 
2076 
2077 



PLA 

LDY Z4B 
BPL BAE19 
TAX 

BEQ BAE5B 
BNE BAE66 



2078 BAE07 LSR ZOD 



2079 
2080 
2081 
2082 
2083 



;restore priority of stacked diadic 

; compare to priority of current diadic 

;lf stacked higher, apply operator 

;TYPE MISMATCH if string operand 

;save priority again 

; recursive call to evaluate expression 

; res tore priority again 

;restore index of current diadic 

;if at end 

;and priority = 

;stop 

;else apply 

;get string flag 



TXA 
ROL A 
LDX Z7A 
BNE BAE11 
DEC Z7B 

2084 BAE11 DEC Z7A 

2085 LDY $1B 

2086 STA Z4D 

2087 BNE BADFO 
AE19 D980A0 2088 BAE19 CMP TA080.Y 
AE1C B048 2089 BCS BAE66 
AE1E 90D9 2090 BCC BADF9 

2091 ; 

2092 ; recursive entry for evaluation of expressions 

2093 ; 
AE20 B982A0 2094 SAE20 LDA TA080+2.Y ;save pointer to routine for diadic 



;save rounded value of left operand 

;get <=> code 

;and restart evaluation 



;add to <=> code 

; decrement character pointer 



;get index (3*9) 

;save <=> code 

;and go check priorities 

;if true diadic, compare priorities 

;if stacked priority higher, apply it 

;else repeat 



AE23 48 


2095 




PHA 


AE24 B981A0 


2096 




LDA TA080+1.Y 


AE27 48 


2097 




PHA 


AE28 2033AE 


2098 




JSR SAE33 


AE2B A54D 


2099 




LDA Z4D 


AE2D 4CA9AD 


2100 
2101 




JMP JADA9 


AE30 4C08AF 


2102 
2103 


BAE30 


JMP JAF08 




2104 


;save 


rounded value 




2105 


> 




AE33 A566 


2106 


SAE33 


LDA Z66 


AE35 BE80A0 


2107 




LDX TA080.Y 


AE38 A8 


2108 


SAE38 


TAY 


AE39 68 


2109 




PLA 


AE3A 8522 


2110 




STA Z22 


AE3C E622 


2111 




INC Z22 


AE3E 68 


2112 




PLA 


AE3F 8523 


2113 




STA Z23 


AE41 98 


2114 




TYA 


AE42 48 


2115 




PHA 


AE43 201BBC 


2116 


JAE43 


JSR SBC1B 


AE46 A565 


2117 




LDA Z65 



; print SYNTAX Error 



;get sign of flp accu 
;get priority of diadic 



;save return address in Z22/Z23 



;save sign of flp accu 

; round flp accu 

;save flp accu on stack 
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AE48 48 
AE49 A564 
AE4B 48 
AE4C A563 
AE4E 48 
AE4F A562 
AE51 48 
AE52 A561 
AE54 48 
AE55 6C2200 



AE58 

AE5A 

AE5B 

AE5D 

AE5F 

AE61 

AE64 

AE66 

AE67 

AE68 

AE6A 

AE6B 

AE6D 

AE6E 

AE70 

AE71 

AE73 

AE74 

AE76 

AE77 

AE79 

AE7A 

AE7C 

AE7E 

AE80 

AE82 



AOFF 

68 

F023 

C964 

F003 

208DAD 

844B 

68 

4A 

8512 

68 

8569 

68 

856A 

68 

856B 

68 

856C 

68 

856D 

68 

856E 

4566 

856F 

A561 

60 



2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 BAE58 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 BAE80 

2156 



PHA 

LDA Z64 

PHA 

LDA Z63 

PHA 

LDA Z62 

PHA 

LDA Z61 

PHA 

JMP ,( z22 ) 



; return to caller 



; apply dladic operator 



BAE5B 
BAE5D 



BAE64 
BAE66 



LDY $FF 
PLA 

BEQ BAE80 
CMP $64 
BEQ BAE64 
JSR SAD8D 
STY Z4B 
PLA 
LSR A 
STA Z12 
PLA 

STA Z69 
PLA 

STA Z6A 
PLA 

STA Z6B 
PLA 

STA Z6C 
PLA 

STA Z6D 
PLA 

STA Z6E 
EOR Z66 
STA Z6F 
LDA Z61 
RTS 



;at expression end, set negative Index 
; restore diadic priority from stack 
;if zero, stop 
;if not priority of <-> 

;then TYPE MISMATCH if string 
;save index of current diadic 
; remove string flag 

;save <=> code for <-> routine 
; restore left operand 
;to second flp accu 



; Exclusive OR of both signs 

; return with A = exponent of result 
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AE83 6C0A03 



AE86 A900 
AE88 850D 
AE8A 207300 
AE8D B003 
AE8F 4CF3BC 

AE92 2013B1 
AE95 9003 
AE97 4C28AF 

AE9A C9FF 
AE9C D00F 
AE9E A9A8 
AEAO AOAE 
AEA2 20A2BB 
AEA5 4C7300 



AEA8 82490F 



AEAD 
AEAF 
AEB1 
AEB3 
AEB5 
AEB7 
AEB9 
AEBB 
AEBD 
AEBF 
AEC1 
AEC3 
AEC5 
AEC6 
AEC9 



C92E 

FODE 

C9AB 

F058 

C9AA 

F0D1 

C922 

DOOF 

A57A 

A47B 

6900 

9001 

C8 

2087B4 

4CE2B7 



AECC C9A8 
AECE D013 
AEDO A018 
AED2 D03B 



2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 



SAE83 JMP (X030A) ;get arithmetic element (normally AE86) 

> 

;get arithmetic element into flp accu 



LDA $00 
STA ZOD 

BAE8A JSR X0O73 
BCS BAE92 

BAE8F JMP SBCF3 

BAE92 JSR SB113 
BCC BAE9A 
JMP JAF28 

BAE9A CMP $FF 

BNE BAEAD 
LDA <TAEA8 
LDY >TAEA8 
JSR SBBA2 
JMP X0073 



;set string flag to not string 

;get next character 
;if numeric, 
;gather number 

; check for alphabetic character 

;if so, get value for variable 

;if code for PI 

;let AY point to value for PI 

;load value into flp accu 
;get next charcter 



flp value for PI 
TAEA8 .BY $82,$49,$0F,$DA,$A1 



BAEAD CMP '. 

BEQ BAE8F 
CMP $AB 
BEQ BAFOD 
CMP $AA 
BEQ BAE8A 
CMP '" 
BNE BAECC 

SAEBD LDA Z7A 
LDY Z7B 
ADC $00 
BCC BAEC6 
INY 

BAEC6 JSR SB487 
JMP SB7E2 



BAECC CMP $A8 

BNE BAEE3 
LDY $18 
BNE BAFOF 



;if decimal point 

; gather number 

;if minus sign 

;do recursive get value 

;if plus 

; ignore 

;if quote 

;get pointer to first char of string 
;into Y 



;get ptr to desc of constant string 
;set current ptr after string 

;if NOT 

;set index for NOT 

;do recursive get value 
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2204 
2205 



; monadic "NOT" command 



AED4 20BFB1 2206 WAED4 JSR SB1BF 



AED7 A565 
AED9 49FF 
AEDB A8 
AEDC A564 
AEDE 49FF 
AEEO 4C91B3 2212 
2213 



2207 
2208 
2209 
2210 
2211 



LDA Z65 
EOR $FF 
TAY 

LDA Z64 
EOR $FF 
JMP JB391 



; convert flp to integer 
;get complement of low byte into A 
;get complement of high byte in A 
; convert integer to flp 



continuation of GET operand 
;if FH 



2214 
2215 

2216 BAEE3 CMP $A5 

2217 BNE BAEEA 
JMP JB3F4 



AEE3 C9A5 
AEE5 D003 
AEE7 4CF4B3 2218 

2219 ; 
AEEA C9B4 2220 BAEEA CMP $B4 
AEEC 9003 2221 BCC BAEF1 
AEEE 4CA7AF 2222 JMP JAFA7 

2223 ; 
AEF1 20FAAE 2224 BAEF1 JSR SAEFA 
AEF4 209EAD 2225 JSR SAD9E 

2226 ; 

2227 ; check and skip characters 

2228 ; 



; expand function 

;if code for SGN or higher 

;go apply function 



; SYNTAX Error if no 
jevaluate expression 



'(" present 



AEF7 A929 


2229 SAEF7 


LDA ') 


; check for ")" 


AEF9 2C 


2230 


.BY $2C 


;skip next instruction 


AEFA A928 


2231 SAEFA 


LDA '( 


; check for "(" 


AEFC 2C 


2232 


.BY $2C 


;skip next instruction 


AEFD A92C 


2233 SAEFD 


LDA ', 


; check for " , " 


AEFF A000 


2234 SAEFF 


LDY $00 


; check for code in A 


AF01 D17A 


2235 


CMP (Z7A),Y 


;if current character < > to parame 


AF03 D003 


2236 


BNE JAF08 


;then SYNTAX Error 


AF05 4C7300 


2237 
2238 ; 


JMP X0073 


;else get next character and return 


AF08 A20B 


2239 JAF08 


LDX $0B 


; point to SYNTAX Error message 


AFOA 4C37A4 


2240 
2241 ; 


JMP JA437 


; print message 




2242 ; recursive get value 






2243 ; 






AFOD A015 


2244 BAFOD 


LDY $15 


;set index for "-" 


AFOF 68 


2245 BAFOF 


PLA 


; remove own return address 


AF10 68 


2246 


PLA 




AF11 4CFAAD 


2247 
2248 ; 


JMP JADFA 


;do pseudo diadic 




2249 ; check variable pointer range 




2250 ; 






AF14 38 


2251 SAF14 


SEC 




AF15 A564 


2252 


LDA Z64 




AF17 E900 


2253 


SBC $00 




AF19 A565 


2254 


LDA Z65 




AF1B E9A0 


2255 


SBC $A0 




AF1D 9008 


2256 


BCC BAF27 


;exit with C clear if pointer < $A0 


AF1F A9A2 


2257 


LDA $A2 




AF21 E564 


2258 


SBC Z64 




AF23 A9E3 


2259 


LDA $E3 




AF25 E565 


2260 


SBC Z65 


; clear C if $E342 < pointer 


AF27 60 


2261 BAF27 


RTS 
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;get value of variable 



2263 
2264 
AF28 208BB0 2265 JAF28 JSR SB08B 



AF2B 8564 


2266 


STA Z64 


AF2D 8465 


2267 


STY Z65 


AF2F A645 


2268 


LDX Z45 


AF31 A446 


2269 


LDY Z46 


AF33 A50D 


2270 


LDA ZOD 


AF35 F026 


2271 


BEQ BAF5D 


AF37 A900 


2272 


LDA $00 


AF39 8570 


2273 


STA Z70 


AF3B 2014AF 2274 


JSR SAF14 


AF3E 90 1C 


2275 


BCC BAF5C 


AF40 E054 


2276 


CPX 'T 


AF42 D018 


2277 


BNE BAF5C 


AF44 C0C9 


2278 


CPY $C9 


AF46 D014 


2279 


BNE BAF5C 


AF48 2084A1 


' 2280 


JSR SAF84 


AF4B 845E 


2281 


STY Z5E 


AF4D 88 


2282 


DEY 


AF4E 8471 


2283 


STY Z71 


AF50 A006 


2284 


LDY $06 


AF52 84 5D 


2285 


STY Z5D 


AF54 A024 


2286 


LDY $24 


AF56 2068BE 


2287 


JSR SBE68 


AF59 4C6FB4 


2288 
2289 ; 


JMP JB46F 


AF5C 60 


2290 BAF5C 

2291 ; 


: RTS 


AF5D 240E 


2292 BAF5D 


i BIT ZOE 


AF5F 100D 


2293 


BPL BAF6E 


AF61 A00O 


2294 


LDY $00 


AF63 B164 


2295 


LDA (Z64),Y 


AF65 AA 


2296 


TAX 


AF66 C8 


2297 


INY 


AF67 B164 


2298 


LDA (Z64),Y 


AF69 A8 


2299 


TAY 


AF6A 8A 


2300 


TXA 


AF6B 4C91B3 


2301 
2302 ; 


JMP JB391 


AF6E 2014AF 


2303 BAF6E 


JSR SAF14 


AF71 902D 


2304 


BCC BAFAO 


AF73 E054 


2305 


CPX 'T 


AF75 D01B 


2306 


BNE BAF92 


AF77 C049 


2307 


CPY 'I 


AF79 D025 


2308 


BNE BAFAO 


AF7B 2084AF 


2309 


JSR SAF84 


AF7E 98 


2310 


TYA 


AF7F A2A0 


2311 


LDX $A0 


AF81 4C4FBC 


2312 


JMP JBC4F 



{gather name and get pointer to variable 
;save pointer to variable 

;get name of variable 

;if not a string 

;go check for integer and flp 



; check for pointer < $A000 or > $E342 

;yes, return 

;if first character of variable not T, 

; return 

j if second character ■= "I$" 

;get time in flp accu 
; clear exponent base 10 

{initialize output index 

;and t of digits before decimal point 

;set table index for time conversion 

;convert flp to string 

;get description of string into flp accu 



;if integer variable 



;get integer value in AY 



{convert integer to flp 

{if not normal variable 

{and if first character is T 

;and second character is I 

{get time into flp accu 

{set exponent 

{sign and guard bits 
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2314 
2315 

AF84 20DEFF 2316 

AF87 8664 2317 

AF89 8463 

AF8B 8565 

AF8D AOOO 

AF8F 8462 

AF91 60 



get time in flp accu 

; fetch time 



2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 



SAF84 JSR XFFDE 
STX Z64 
STY Z63 
STA Z65 
LDY $00 
STY Z62 
RTS 



;store time 



AF92 E053 

AF94 DOOA 

AF96 C054 

AF98 D006 

AF9A 20B7FF 2330 

AF9D 4C3CBC 2331 

2332 

AFAO A564 2333 

AFA2 A465 2334 

AFA4 4CA2BB 2335 

2336 

2337 

2338 

2339 

2340 

2341 



; continue to get value of variable 

;if first character is S 
;and second character is T 



AFA7 OA 
AFA8 48 
AFA9 AA 

AFAA 207300 2342 
AFAD E08F 2343 
AFAF 9020 2344 
AFB1 20FAAE 2345 
AFB4 209EAD 2346 
AFB7 20FDAE 2347 
AFBA 208FAD 2348 
AFBD 68 2349 
AFBE AA 2350 
AFBF A565 2351 
AFC1 48 2352 
AFC2 A564 2353 
AFC4 48 2354 
AFC5 8A 2355 
AFC6 48 2356 
AFC7 209EB7 2357 
AFCA 68 2358 
AFCB A8 2359 
AFCC 8A 2360 
AFCD 48 2361 
AFCE 4CD6AF 2362 
2363 
AFD1 20F1AE 2364 
AFD4 68 2365 
AFD5 A8 2366 
AFD6 B9EA9F 2367 
AFD9 8555 2368 
AFDB B9EB9F 2369 
AFDE 8556 2370 
AFEO 205400 2371 
AFE3 4C8DAD 2372 



BAF92 CPX 'S 

BNE BAFAO 
CPY 'T 
BNE BAFAO 
JSR XFFB7 
JMP JBC3C 

BAFAO LDA Z64 
LDY Z65 
JMP SBBA2 

;apply function 

JAFA7 ASL A 
PHA 
TAX 

JSR X0073 
CPX $8F 
BCC BAFD1 
JSR SAEFA 
JSR SAD9E 
JSR SAEFD 
JSR SAD8F 
PLA 
TAX 

LDA Z65 
PHA 

LDA Z64 
PHA 
TXA 
PHA 

JSR SB79E 
PLA 
TAY 
TXA 
PHA 
JMP JAFD6 



;get status word 

;move signed # from A into flp accu 

;for normal variables, put pointer in AY 

;load flp accu from AY 



; index byte * 2 
;save index 

;get next character 

;if function with more than 1 parameter 

;next character must be "(" 
;evaluate expression 
;next character must be "," 
; result must be a string value 
; res tore index 

;save pointer to description on stack 



;save index again 

;get next integer value into X 
; restore index 
; index in Y 



;save integer parameter 



;get value in parenthesis 
; restore index 



BAFD1 JSR BAEF1 

PLA 

TAY 

JAFD6 LDA X9FEA.Y ;get pointer to function routine 

STA Z55 ;into Z55/Z56 

LDA X9FEA+1.Y 

STA Z56 

JSR X0054 ; perform function 

JMP SAD8D ; return with correct string flag 
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AFE6 AOFF 
AFE8 2C 



AFE9 

AFEB 

AFED 

AFFO 

AFF2 

AFF4 

AFF6 

AFF8 

AFFA 

AFFC 

AFFF 

BOO 2 

B004 

BOOb 

B008 

BOOA 

BOOB 

BOOL 

BOOF 

BOll 

B013 



AOOO 

S40B 

20BFB1 

A564 

450B 

8507 

A565 

450B 

8508 

20FCBB 

20BFB1 

A565 

450B 

2508 

450B 

A8 

A564 

450B 

2507 

450B 

«C91B3 



2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2362 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 



; "OH" command 

WAFE6 LDY $FF 
.BY $2C 

; "AWD" command 



WAFE9 LuY 
STY 
JSR 
LDA 
EOR 
STA 
LDA 
EOR 
STA 
JSR 
JSR 
LDA 
EOR 
AND 
EOR 
TAY 
LDA 
EOR 
AND 
EOR 
JMP 



$00 

ZOB 

SB1BF 

Z64 

ZOB 

Z07 

Z65 

ZOB 

Z08 

SBBFC 

SB1BI 

Z65 

ZOB 

Z08 

ZOB 

Z64 
ZOB 
Z07 
ZOB 
JB391 



;set parameter to complement operands 
;skip next instruction 



; set no complement of operands 

; store the parameter 

; convert left operand to integer 

;get high byte 

; complement if OK 

; save result 

;get low byte 

; complement if OR 

; save result 

;move second flp accu to first flp accu 

; convert right operand to integer 

;get low byte 

; complement if OR 

;AND with left operand 

; complement if OR 

; save result 

;get high byte 

; complement if OR 

;AKD with other operand 

; complement if OR 

; convert integer from AY to flp accu 
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B016 
B019 
B01B 
BOID 
BOIF 
B021 
B023 
B025 
B027 
B02A 
B02B 



2090AD 

B013 

A56E 

097F 

256A 

856A 

A969 

AOOO 

205BBC 

AA 

4C61BO 



B02E A900 
B030 850D 
B032 C64D 
B034 20A6B6 
B037 8561 
B039 8662 
B03B 8463 
B03D A56C 
B03F A46D 
B041 20AAB6 
B044 866C 
B046 846D 
B048 AA 
B049 38 
B04A E561 
B04C FO08 
B04E A901 
B050 9004 
B052 A661 
B054 A9FF 
B056 8566 
B058 AOFF 
BO 5 A E8 
B05B C8 
B05C CA 
B05D D007 
B05F A666 
B061 300F 
B063 18 
B064 900C 
B066 B16C 
B068 D162 
B06A FOEF 
B06C A2FF 
B06E B002 
B070 A201 
B072 E8 
B073 8A 
B074 2A 
B075 2512 
B077 F002 
B079 A9FF 
B07B 4C3CBC 



2403 ;"<->" 

2404 ; 

2405 WB016 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 

2416 ; 

2417 BB02E 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 

2437 BB056 
2438 
2439 

2440 BB05B 
2441 
2442 
2443 

2444 JB061 
2445 
2446 

2447 BB066 
2448 
2449 
2450 
2451 
2452 

2453 BB072 
2454 
2455 
2456 
2457 
2458 
2459 BB07B 



command 

JSR SAD90 
BCS BB02E 
LDA Z6E 
ORA $7F 
AND Z6A 
STA Z6A 
LDA <Z69 
LDY >Z69 
JSR SBC5B 
TAX 
JMP JB061 

LDA $00 
STA ZOD 
DEC Z4D 
JSR SB6A6 
STA Z61 
STX Z62 
STY Z63 
LDA Z6C 
LDY Z6D 
JSR SB6AA 
STX Z6C 
STY Z6D 
TAX 
SEC 

SBC Z61 
BEQ BB056 
LDA $01 
BCC BB056 
LDX Z61 
LDA $FF 
STA Z66 
LDY $FF 
INX 
INY 
DEX 

BNE BB066 
LDX Z66 
BMI BB072 
CLC 

BCC BB072 
LDA (Z6C),Y 
CMP (Z62),Y 
BEQ BB05B 
LDX $FF 
BCS BB072 
LDX $01 
INX 
TXA 
ROL A 
AND Z12 
BEQ BB07B 
LDA $FF 
JMP JBC3C 



; check value of A 

;if string, go compare strings 

; Include sign bit 

;into byte 1 

;of fraction of second flp accu 

;set AY to second flp accu 
;compare AY with flp accu 
(save result of comparison 
; check with <=> code 



; reset string flag 

;also remove saved string flag 

;de-allocate temp, string (right op) 



;get text pointer of left operand 

;de-allocate temp, string (left op) 
;save text pointer 

;save length of left operand 

; compare lengths (left-right) 

;if equal, A=0 

;set A to 1 

;if left operand longer, 

;get length of shorter string 

;and set A to -1 

;save sign of left-right 

;set start index into strings 

;point to next character 

;if more characters, compare 

;if not, restore sign of left-right 

;set correct C bit 

;JMP 

;get character from left string 

;compare to character from right string 

;if equal, repeat 

;X = -1 if character from left higher 

;X = 1 if character from left lower 
;X - 0, 1 or 2 for left > = < 

; convert to 1, 2 or 4 

;mask with <=> code 

;if zero, result = false (0) 

;if non-zero, result = true (-1) 

;go get signed # from A into flp accu 
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B07E 20FDAE 
B081 AA 
B082 2090B0 
B085 207900 
B088 D0F4 
B08A 60 



B08B 
B08D 
B090 
B092 
B094 
B097 
B09A 
B09C 



A200 

207900 

860C 

8545 

207900 

2013B1 

B003 

4C08AF 



B09F 

B0A1 

B0A3 

B0A5 

B0A8 

BOAA 

BO AD 

BOAF 

BOBO 

B0B3 

B0B5 

B0B8 

BOBA 

BOBC 

BOBE 

BOCO 

B0C2 

B0C4 

B0C6 

B0C8 

BOCA 

BOCC 

BOCE 

BODO 

B0D2 

B0D4 

B0D5 

BOD 7 

B0D8 

BODB 

BODD 

BODE 

BOEO 

B0E2 

B0E4 



A200 

860D 

860E 

207300 

9005 

2013B1 

900B 

AA 

207300 

90FB 

2013B1 

B0F6 

C924 

D006 

A9FF 

850D 

D010 

C925 

D013 

A510 

DODO 

A980 

850E 

0545 

8545 

8A 

0980 

AA 

207300 

8646 

38 

0510 

E928 

D003 

4CD1B1 



B0E7 AOOO 
B0E9 8410 
BOEB A52D 
BOED A62E 



2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2.508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 



; "DIM" command 

» 

BB07E JSR SAEFD 

WB081 TAX 

JSR SB090 
JSR X0079 
BNE BB07E 
RTS 



; SYNTAX Error If not "," 

; gather name and pointer to variable 

;get current character 

;lf not end of statement, repeat 



;get name and pointer to a variable 



BBOAF 
BBOBO 



SB08B LDX $00 

JSR X0079 

SB090 STX ZOC 

SB092 STA Z45 

JSR X0079 
JSR SB113 
BCS BB09F 

BB09C JMP JAF08 

» 

BB09F LDX $00 
STX ZOD 
STX ZOE 
JSR X0073 
BCC BBOAF 
JSR SB113 
BCC BBOBA 
TAX 

JSR XO073 
BCC BBOBO 
JSR SB113 
BCS BBOBO 
BBOBA CMP '$ 

BNE BB0C4 
LDA $FF 
STA ZOD 
BNE BB0D4 
BB0C4 CMP '% 

BNE BBODB 
LDA Z10 
BNE BB09C 
LDA $80 
STA ZOE 
ORA Z45 
STA Z45 
BBOD4 TXA 

ORA $80 
TAX 

JSR XO073 
BBODB STX Z46 
SEC 

ORA Z10 
SBC '( 
BNE BBOE7 
JMP JB1D1 



BBOE7 LDY $00 
STY Z10 
LDA Z2D 
LDX Z2E 



;set code for ref, not declaration 

;get current character 

;set reference/declaration flag 

;store first character of name 

;get current character 

;if not alphabetic 

;then SYNTAX Error message 

;set flags 
;to not string 
;and not integer 
;get next character 
;if numeric 

;or alphabetic 

;save second character in X 

;get next character 

; until first non-numeric character 

;not alphabetic 

;if terminator is "$" 



;then set flag for strings 

;if terminator is "%" 

;and integers not allowed 
;then SYNTAX Error 

;else set integer flag and 

;add bit 7 to first char of name 

;add bit 7 to 2nd char of name 
;for both string and integer 

;get next character 

;save second character name 

;if arrays allowed 

;and next character is "(" 

; handle dimensioned variable 

;reset no integers or arrays switch 

;AX=pointer to variable name table 
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BOEF 8660 
B0F1 855F 
B0F3 E430 
B0F5 D004 
B0F7 C52F 
B0F9 F022 
BOFB A545 
BOFD D15F 
BOFF D008 
B101 A546 
B103 C8 
B104 D15F 
B106 F07D 
B108 88 
B109 18 
B10A A55F 
B10C 6907 
B10E 90E1 
BUO E8 
Bill DODC 



2521 BBOEF SIX Z60 

2522 BB0F1 STA Z5F 

2523 CPX Z30 

2524 BNE BBOFB 

2525 CMP Z2F 

2526 BEQ BB11D 

2527 BBOFB LDA Z45 



2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 BB109 

2536 

2537 

2538 

2539 

2540 

2541 



B113 C941 
B115 9005 
B117 E95B 
B119 38 
B11A E9A5 
B11C 60 



BUD 68 
B11E 48 
B11F C92A 
B121 D005 
B123 A913 
B125 AOBF 
B127 60 



B128 
B12A 
B12C 
B12E 
B130 
B132 
B134 
B136 
B138 

B13B 
B13D 
B13F 
B141 
B143 
B145 
B147 



CMP (Z5F),Y 

BNE BB109 

LDA Z46 

INY 

CMP (Z5F),Y 

BEQ BB185 

DEY 

CLC 

LDA Z5F 

ADC $07 

BCC BB0F1 

INX 

BNE BBOEF 



;lf at end of name table 

;then variable not found 
;lf name matches 

;then variable found 
;set AX to entry + 7 



2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 



; continue search 

> 

; check character in A 



; return with C-l 
;return with C=0 



A545 
A446 
C954 
DOOB 
C0C9 
FOEF 
C049 
D003 
4C08AF 

C953 
D004 
C054 
F0F5 
A52F 
A430 
855F 



SB113 CMP 'A 

BCC BB11C 
SBC 'Z+l 
SEC 
SBC $A5 

2552 BB11C RTS 

2553 ; 

2554 ; variable not found 

2555 ; 

2556 BB11D PLA 

2557 PIIA 

2558 CMP $2A 

2559 BNE BB128 

2560 BB123 LDA $13 

2561 LDY $BF 

2562 RTS 

2563 ; 

2564 BB128 LDA Z45 



2565 
2566 
2567 
2568 
2569 
2570 
2571 



LDY Z46 
CMP 'T 
BNE BB13B 
CPY $C9 
BEQ BB123 
CPY 'I 
BNE BB13B 



2572 BB138 JMP JAF08 

2573 ; 

2574 BB13B CMP 'S 

2575 BNE BB143 

2576 CPY 'T 

2577 BEQ BB138 

2578 BB143 LDA Z2F 

2579 LDY Z^O 

2580 STA Z5F 



alphabetic 
not 

;if character < "A" 

; return with C = 

;if character > "Z" then C - 

;else return with C=l 



;if low byte of return address - $2A 
(if called from GET VALUE OF VARIABLE) 

; return with AY pointing to 
;a dummy variable (value 0) 



;if name = TI$ 

; return with dummy value 
;if narae=TI 

;then SYNTAX Error 

;if name- ST 



;then SYNTAX Error 

;set AY to pointer to end of name table 

;and save as start of input for move 
55 



B149 

BUB 

B14D 

B14F 

B151 

B153 

B154 

B156 

B158 

B159 

B15B 

B15D 

B160 

B162 

B164 

B165 

B167 

B169 

B16B 

B16D 

B16F 

B170 

B172 

B174 

B176 

B177 

B179 

B17A 

B17C 

B17D 

B17F 

B180 

B182 

B183 



8460 

A531 

A432 

855A 

845B 

18 

6907 

9001 

C8 

8558 

8459 

20B8A3 

A558 

A459 

C8 

852F 

8430 

A000 

A545 

915F 

C8 

A546 

915F 

A900 

C8 

915F 

C8 

915F 

C8 

915F 

C8 

915F 

C8 

915F 



B185 A55F 
B187 18 
B188 6902 
B18A A460 
B18C 9001 
B18E C8 
B18F 8547 
B191 8448 
B193 60 



2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 



STY 
LDA 
LDY 
STA 
STY 
CLC 
ADC 
BCC 
INY 
BB159 STA 
STY 
JSR 
LDA 
LDY 
INY 
STA 
STY 
LDY 
LDA 
STA 
INY 
LDA 
STA 
LDA 
INY 
STA 
INY 
STA 
INY 
STA 
INY 
STA 
INY 
STA 



Z60 
Z31 
Z32 
Z5A 
Z5B 

$07 
BB159 

Z58 

Z59 

SA3B8 

Z58 

Z59 

Z2F 
Z30 
$00 
Z45 
(Z5F),Y 

Z46 

(Z5F),Y 

$00 

(Z5F),Y 

(Z5F),Y 

(Z5F),Y 

(Z5F),Y 

(Z5F),Y 



; variable found 



BB185 LDA Z5F 

CLC 

ADC $02 

LDY Z60 

BCC BB18F 

INY 
BB18F STA Z47 

STY Z48 

RTS 



»AY-pointer to end of array area 

;add 7 to pointer for one entry 

;into pointer to end of output for move 

; check for space and move bytes 

;AY=beginning of output area 

;for move routine 

;move to pointer to end of name table 

;store first byte of name in byte 

;store second byte of name in byte 1 

;clear bytes 2-6 (value) 



;return pointer to entry 
;plus 2 



;in variable address and AY 
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B194 A50B 
B196 OA 
B197 6905 
B199 655F 
B19B A460 
B19D 9001 
B19F C8 
B1A0 8558 
B1A2 8459 
B1A4 60 



B1A5 908000 



B1AA 20BFB1 
B1AD A564 
B1AF A465 
B1B1 60 



B1B2 207300 
B1B5 209EAD 
B1B8 208DAD 
BIBB A566 
B1BD 300D 



B1BF 
B1C1 
B1C3 
B1C5 
B1C7 
B1C9 
B1CC 
BICE 



A561 

C990 

9009 

A9A5 

A0B1 

205BBC 

D07A 

4C9BBC 



2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 



; compute pointer to array body 



SB194 LDA ZOB 
ASL A 
ADC $05 
ADC Z5F 
LDY Z60 
BCC BB1A0 
INY 

BB1A0 STA Z58 
STY Z59 
RTS 



;get t of dimensions 

;* 2 

;add fixed overhead 

;add low byte of array pointer 

;get high byte of array pointer 

; increment if carry 

;save pointer to body of array 



;flp number for conversion to integer 

TB1A5 .BY $90, $80, $00, $00, $00 

•routine to convert floating point number to fixed point 
; convert flp to fixed point 
; return with value in AY 



JSR SB1BF 
LDA Z64 
LDY Z65 

RTS 



; convert value from statement into integer 



SB1B2 JSR X0073 
JSR SAD9E 

SB1B8 JSR SAD8D 
LDA Z66 
BHI BB1CC 



;get next character 
;get value from statement 
; check for non- string 
;if flp accu negative, 
; ILLEGAL QUANTITY Error 



» 

; convert flp number to integer 



SB1BF LDA Z61 ;get exponent 

CMP $90 ;if < 16 

BCC BB1CE ; convert 

LDA <TB1A5 ;let AY point to flp value -32768 

LDY >TB1A5 

JSR SBC5B ; compare AY to flp accu 

BB1CC BNE JB248 ;if not >, ILLEGAL QUANTITY Error 

BB1CE JMP SBC9B ;convert flp accu to 4 byte integer 
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2671 ;get pointer to dimensioned variable 

2672 : 



B1D1 A50C 


2673 JB1D1 LDA ZOC 


;save reference flag 


B1D3 050E 


2674 


ORA ZOE 


;and integer flag 


B1D5 48 


2675 


PHA 




B1D6 A50D 


2676 


LDA ZOD 


;save string flag 


B1D8 48 


2677 


PHA 




B1D9 A000 


2678 


LDY $00 


initialize count # of dimensions 


B1DB 98 


2679 BB1DB TYA 




B1DC 48 


2680 


PHA 


;save count 


B1DD A546 


2681 


LDA Z46 




B1DF 48 


2682 


PHA 


;save second character of name 


B1E0 A545 


2683 


LDA Z45 




B1E2 48 


2684 


PHA 


;save first character of name 


B1E3 20B2B1 2685 


JSR SB1B2 


; convert value from statement to J 


B1E6 68 


2686 


PLA 




B1E7 8545 


2687 


STA Z45 


;restore first character of name 


B1E9 68 


2688 


PLA 




B1EA 8546 


2689 


STA Z46 


; restore second character of name 


B1EC 68 


2690 


PLA 




B1ED A8 


2691 


TAY 


; restore count 


B1EE BA 


2692 


TSX 


iget stack pointer 


B1EF BD0201 2693 


LDA X0102.X 




B1F2 48 


2694 


PHA 


;move saved flags to top of stack 


B1F3 BD0101 2695 


LDA X0101.X 




B1F6 48 


2696 


PHA 




B1F7 A564 


2697 


LDA Z64 


;save array index in their place 


B1F9 9D0201 2698 


STA X0102.X 




B1FC A565 


2699 


LDA Z65 




B1FE 9D0101 2700 


STA X0101.X 




B201 C8 


2701 


INY 


; increment dimension pointer 


B202 207900 2702 


JSR X0079 


;get current character 


B205 C92C 


2703 


CMP ', 


;if "," 


B207 F0D2 


2704 


BEQ BB1DB 


; repeat for next array index 


B209 840B 


2705 


STY ZOB 


;save total number of dimensions 


B20B 20F7AE 


: 2706 


JSR SAEF7 


;skip ")•' 


B20E 68 


2707 


PLA 




B20F 850D 
B211 68 


2708 
2709 


STA ZOD 
PLA 


; restore string flag 


B212 850E 


2710 


STA ZOE 


;restore integer flag 


B214 297F 


2711 


AND $7F 




B216 850C 


2712 


STA ZOC 


;and reference flag 


B218 A62F 


2713 


LDX Z2F 




B21A A530 


2714 


LDA Z30 


;AX = pointer to array area 


B21C 865F 


2715 BB21C 


: SIX Z5F 




B21E 8560 


2716 


STA Z60 


;save in temporary pointer 


B220 C532 


2717 


CMP Z32 




B222 D004 


2718 


BNE BB228 




B224 E431 


2719 


CPX Z31 


;if end of array area reached 


B226 F039 


2720 


BEQ BB261 


;then array not found 


B228 A000 


2721 BB228 


LDY $00 




B22A B15F 


2722 


LDA (Z5F),Y 


;get first character of name 


B22C C8 


2723 


INY 




B22D C545 


2724 


CMP Z45 


;if equal 


B22F D006 


2725 


BNE BB237 




B231 A546 


2726 


LDA Z46 




B233 D15F 


2727 


CMP (Z5F),Y 


;and second character of name also 


B235 F016 


2728 


BEQ BB24D 


;then array found 


B237 C8 


2729 BB237 


INY 




B238 B15F 


2730 


LDA (Z5F),Y 


;get low byte of length 



integer 
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B23A 18 


2731 




CLC 


B23B 655F 


2732 




ADC Z5F 


B23D AA 


2733 




TAX 


B23E C8 


2734 




INY 


B23F B15F 


2735 




LDA (Z5F),Y 


B241 6560 


2736 




ADC Z60 


B243 90D7 


2737 




BCC BB21C 


B245 A212 


2738 


BB245 


LDX $12 


B247 2C 


2739 
2740 




.BY $2C 


B248 A20E 


2741 


JB248 LDX $0E 


B24A 4C37A4 


2742 


BB24A JMP JA437 


B24D A213 


2743 


BB24D 


LDX $13 


B24F A50C 


2744 




LDA ZOC 


B251 D0F7 


2745 




BNE BB24A 


B253 2094B1 


2746 




JSR SB194 


B256 A50B 


2747 




LDA ZOB 


B258 A004 


2748 




LDY $04 


B25A D15F 


2749 




CMP (Z5F),Y 


B25C D0E7 


2750 




BNE BB245 


B25E 4CEAB2 


2751 




JMP JB2EA 



;add to array pointer 
;and save result in X 

;get high byte of length 

;add to array pointer 

; repeat if not overflow 

; point to BAD SUBSCRIPT Error message 

;skip next instruction 

; point to ILLEGAL QUANTITY Error message 

; print message 

; point to BAD SUBSCRIPT Error message 

;if declaration 

;then fatal error 

; compute pointer to array body 

;if actual # of dimensions 

;not equal to declared # 

;then error 

;else compute array reference 
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2753 


; allocate 


array 




2754 


; 




B261 2094B1 


2755 


BB261 JSR 


SB194 


B264 2008A4 


2756 


JSR 


SA408 


B267 AOOO 


2757 


LDY 


$00 


B269 8472 


2758 


STY 


Z72 


B26B A205 


2759 


LDX 


$05 


B26D A545 


2760 


LDA 


Z45 


B26F 915F 


2761 


STA 


(Z5F),Y 


B271 1001 


2762 


BPL 


BB274 


B273 CA 


2763 


DEX 




B274 C8 


2764 


BB274 INY 




B275 A546 


2765 


LDA Z46 


B277 915F 


2766 


STA 


(Z5F),Y 


B279 1002 


2767 


BPL 


BB27D 


B27B CA 


2768 


DEX 




B27C CA 


2769 


DEX 




B27D 8671 


2770 


BB27D SIX 


Z71 


B27F A50B 


2771 


LDA 


ZOB 


B281 C8 


2772 


INY 




B282 C8 


2773 


INY 




B283 C8 


2774 


INY 




B284 915F 


2775 


STA 


(Z5F),Y 


B286 A20B 


2776 


BB286 LDX 


$0B 


B288 A900 


2777 


LDA 


$00 


B28A 240C 


2778 


BIT 


ZOC 


B28C 5008 


2779 


BVC 


BB296 


B28E 68 


2780 


PLA 




B28F 18 


2781 


CLC 




B290 6901 


2782 


ADC 


$01 


B292 AA 


2783 


TAX 




B293 68 


2784 


PLA 




B294 6900 


2785 


ADC 


$00 


B296 C8 


2786 


BB296 INY 




B297 915F 


2787 


STA 


(Z5F),Y 


B299 C8 


2788 


INY 




B29A 8A 


2789 


TXA 




B29B 915F 


2790 


STA 


(Z5F),Y 


B29D 204CB3 


2791 


JSR SB34C 


B2A0 8671 


2792 


STX 


Z71 


B2A2 8572 


2793 


STA 


Z72 


B2A4 A422 


2794 


LDY 


Z22 


B2A6 C60B 


2795 


DEC 


ZOB 


B2A8 DODC 


2796 


BNE 


BB286 


B2AA 6559 


2797 


ADC 


Z59 


B2AC B05D 


2798 


BCS 


BB30B 


B2AE 8559 


2799 


STA 


Z59 


B2B0 A8 


2800 


TAY 




B2B1 8A 


2801 


TXA 




B2B2 6558 


2802 


ADC 


Z58 


B2B4 9003 


2803 


BCC 


BB2B9 


B2B6 C8 


2804 


INY 




B2B7 F052 


2805 


BEQ 


BB30B 


B2B9 2008A4 


2806 


BB2B9 JSR SA408 


B2BC 8531 


2807 


STA 


Z31 


B2BE 8432 


2808 


STY 


Z32 


B2C0 A900 


2809 


LDA 


$00 


B2C2 E672 


2810 


INC 


Z72 


B2C4 A471 


2811 


LDY 


Z71 


B2C6 F005 


2812 


BEQ 


BB2CD 



; compute pointer to virtual array body 
; check array area for overflow 

initialize high byte of length 

;set length per element 

;get first character of name 

;into + of array header 

;if integer 

; adjust length per element 

;move second character of name 
;into + 1 of array header 
;if integer or string 

; correct length per element 
;set initial low byte of length 
;move # of dimensions 



;into + 4 of array header 
;set default dimension (11) 

;if declaration 

;skip 

;else get limit from stack 

;add 1 for element # 

; limit into AX 

;move limit into next byte of header 



; low byte also 

;AX - length * limit 

;save into length 

; restore index into array header 

jdecrement # of dimensions 

; repeat until done 

;add high byte of length to body pointer 

;if overflow, OUT OF MEMORY Error 

;save pointer to end of body 

;also in Y 

;add low byte of length to body pointer 

;if overflow 

; increment high byte 

;if overflow, OUT OF MEMORY Error 

; check array area for overflow 

;set new end of array area 

;get length 

;if low byte of length not zero 

60 



B2C8 88 


2813 : 


BB2C8 


DEY 


B2C9 9158 


2814 




STA (Z58),Y 


B2CB DOFB 


2815 




BNE BB2C8 


B2CD C659 


2816 


BB2CD 


DEC Z59 


B2CF C672 


2817 




DEC Z72 


B2D1 DOF5 


2818 




BNE BB2C8 


B2D3 E659 


2819 




INC Z59 


B2D5 38 


2820 




SEC 


B2D6 A531 


2821 




LDA Z31 


B2D8 E55F 


2822 




SBC Z5F 


B2DA A002 


2823 




LDY $02 


B2DC 915F 


2824 




STA (Z5F),Y 


B2DE A532 


2825 




LDA Z32 


B2EO C8 


2826 




INY 


B2E1 E560 


2827 




SBC Z60 


B2E3 915F 


2828 




STA (Z5F),Y 


B2E5 A50C 


2829 




LDA ZOC 


B2E7 D062 


2830 




BNE BB34B 


B2E9 C8 


2831 
2832 


f 


INY 




2833 


; compute reference 




2834 


; 




B2EA B15F 


2835 


JB2EA LDA (Z5F) ,Y 


B2EC 850B 


2836 




STA ZOB 


B2EE A900 


2837 




LDA $00 


B2FO 8571 


2838 




STA Z71 


B2F2 8572 


2839 


BB2F2 


STA Z72 


B2F4 C8 


2840 




INY 


B2F5 68 


2841 




PLA 


B2F6 AA 


2842 




TAX 


B2F7 8564 


2843 




STA Z64 


B2F9 68 


2844 




PLA 


B2FA 8565 


2845 




STA Z65 


B2FC D15F 


2846 




CMP (Z5F),Y 


B2FE 90OE 


2847 




BCC BB30E 


B300 D006 


2848 




BNE BB308 


B302 C8 


2849 




INY 


B303 8A 


2850 




TXA 


B304 D15F 


2851 




CMP (Z5F),Y 


B306 9007 


2852 




BCC BB30F 


B308 4C45B2 


2853 


BB308 


JMP BB245 


B30B 4C35A4 


2854 
2855 


BB30B 


JMP BA435 


B30E C8 


2856 


BB30E 


INY 


B30F A572 


2857 


BB30F 


LDA Z72 


B311 0571 


2858 




ORA Z71 


B313 18 


2859 




CLC 


B314 FOOA 


2860 




BEQ BB320 


B316 204CB3 


i 2861 




JSR SB34C 


B319 8A 


2862 




TXA 


B31A 6564 


2863 




ADC Z64 


B31C AA 


2864 




TAX 


B31D 98 


2865 




TYA 


B31E A422 


2866 




LDY Z22 


B320 6565 


2867 


BB320 


i ADC Z65 


B322 8671 


2868 




STX Z71 


B324 C60B 


2869 




DEC ZOB 


B326 DOCA 


2870 




BNE BB2F2 


B328 8572 


2871 




STA Z72 


B32A A205 


2872 




LDX $05 



; decrement index 

; store zero in array byte 

;until low byte of length is zero 

;then set pointer to next block of 256 

;and decrement high byte of length 

;repeat until length is zero 



;get address of end of array area 
;minus pointer to array area 

;store low byte in + 2 of array header 
;move high byte of difference 

;into + 3 of array header 

;if declaration 

;then return 

;else point to declared # of dimentions 

to array element 

;get It of dimensions from array header 
;save it 

;initialize offset in body 



;get low byte of index from stack 

;into X 

;and flp accu 

;get high byte of index from stack 

;into A and flp accu 

;compare index to limit 

;if lower, OK 

;if higher, BAD SUBSCRIPT Error 

;if equal 

; compare low bytes 

;if lower, OK 

;else BAD SUBSCRIPT Error 

;0UT OF MEMORY Error 



;if total index so far = 



;skip multiplication 
;XY = offset * limit 

;add low byte of array index to A 



; restore index to array header 

;add high byte of array index to A 

;save low byte of new offset 

;if not last index, 

; repeat for next index 

;save high byte of offset 

;set length per element for flp # 
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B32C A545 


2873 




LDA Z45 


B32E 1001 


2874 




BPL BB331 


B330 CA 


2875 




DEX 


B331 A546 


2876 


BB331 


LDA Z46 


B333 1002 


2877 




BPL BB337 


B335 CA 


2878 




DEX 


B336 CA 


2879 




DEX 


B337 8628 


2880 


BB337 


STX Z28 


B339 A900 


2881 




LDA $00 


B33B 2055B3 


2882 




JSR SB355 


B33E 8 A 


2883 




TXA 


B33F 6558 


2884 




ADC Z58 


B341 8547 


2885 




STA Z47 


B343 98 


2886 




TYA 


B344 6559 


2887 




ADC Z59 


B346 8548 


2888 




STA Z48 


B348 AS 


2889 




TAY 


B349 A547 


2890 




LDA Z47 


B34B 60 


2891 


BB34B 


. RTS 



;lf Integer 

; correct length per element 

;lf Integer or string 

; correct length per element 

;XY - offset * length per element 

;add to pointer to array body 

; store result into variable address 

;high byte also 

; return with AY = variable address 
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2893 


;XY = 


XA - 


! length 




2894 


» 






B34C 8422 


2895 


SB34C 


STY 


Z22 


B34E B15F 


2896 




LDA 


(Z5F),Y 


B350 8528 


2897 




STA 


Z28 


B352 88 


2898 




DEY 




B353 B15F 


2899 




LDA 


(Z5F),Y 


B355 8529 


2900 


SB355 


STA 


Z29 


B357 A910 


2901 




LDA $10 


B359 855D 


2902 




STA 


Z5D 


B35B A200 


2903 




LDX 


$00 


B35D AOOO 


2904 




LDY 


$00 


B35F 8A 


2905 


BB35F 


TXA 




B360 OA 


2906 




ASL 


A 


B361 AA 


2907 




TAX 




B362 98 


2908 




TYA 




B363 2A 


2909 




ROL 


A 


B364 AS 


2910 




TAY 




B365 B0A4 


2911 




BCS 


BB30B 


B367 0671 


2912 




ASL 


Z71 


B369 2672 


2913 




ROL 


Z72 


B36B 900B 


2914 




BCC 


BB378 


B36D 18 


2915 




CLC 




B36E 8 A 


2916 




TXA 




B36F 6528 


2917 




ADC 


Z28 


B371 AA 


2918 




TAX 




B372 98 


2919 




TYA 




B373 6529 


2920 




ADC 


Z29 


B375 A8 


2921 




TAY 




B376 B093 


2922 




BCS 


BB30B 


B378 C65D 


2923 


BB378 


DEC 


Z5D 


B37A D0E3 


2924 




BNE 


BB35F 


B37C 60 


2925 




RTS 





limit from array data 

;save Index in array header 
;get low byte of limit 
;save it 

;get high byte of limit 

;and save it too 

;set # bits for multiplication 

; initialize result fields 



;XY * 2 

;if overflow, OUT OF MEMORY Error 
; shift high bit out of length 
;if set 
;add low byte of limit to XY 

;high byte also 

;if overflow, OUT OF MEMORY Error 

; repeat for all bits of length 
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B37D 
B37F 
B381 
B384 
B387 
B388 
B38A 
B38C 
B38D 
B38F 



A50D 

F003 

20A6B6 

2026B5 

38 

A533 

E531 

A8 

A534 

E532 



B391 A200 
B393 860D 
B395 8562 
B397 8463 
B399 A290 
B39B 4C44BC 



B39E 38 
B39F 20F0FF 
B3A2 A900 
B3A4 FOEB 



B3A6 A63A 
B3A8 E8 
B3A9 DOAO 
B3AB A215 
B3AD 2C 
B3AE A21B 
B3BO 4C37A4 



2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 



;"FRE" command 

WB37D LDA ZOD 

BEQ BB384 
JSR SB6A6 

BB384 JSR SB526 
SEC 

LDA Z33 
SBC Z31 
TAY 

LDA Z34 
SBC Z32 



;if string flag set 

;de-allocate temporary string storage 
; perform garbage clean-up 

; compute difference between 
;pointer to allocated string area 
;and pointer to end of array area 



; convert length into flp accu 
; routine to convert integer to floating point 



JB391 LDX $00 
STX ZOD 
STA Z62 
STY Z63 
LDX $90 
JMP JBC44 

;"P0S" command 

> 

WB39E SEC 

JSR XFFF0 
JB3A2 LDA $00 

BEQ JB391 



; clear string flag 

;store integer from AY into flp accu 

;load exponent (16) 

; convert to floating point t 



;set carry to read cursor position 
; perform read cursor position into XY 



; convert integer into flp accu 
; check for non-direct mode 



SB3A6 LDX Z3A 
INX 

BNE BB34B 
LDX $15 
.BY $2C 

BB3AE LDX $1B 

JMP JA437 



;get program/direct flag 

;if direct, 

; point to ILLEGAL DIRECT Error message 

;skip next instruction 

; point to UNDEF'D FUNCTION Error message 

; print error 
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2966 


;"DEF" command 




2967 


i 




B3B3 20E1B3 


2968 


WB3B3 JSR 


SB3E1 


B3B6 20A6B3 


2969 


JSR 


SB3A6 


B3B9 20FAAE 


2970 


JSR 


SAEFA 


B3BC A980 


2971 


LDA 


$80 


B3BE 8510 


2972 


STA 


Z10 


B3C0 208BB0 


2973 


JSR 


SB08B 


B3C3 208DAD 


2974 


JSR 


SAD8D 


B3C6 20F7AE 


2975 


JSR 


SAEF7 


B3C9 A9B2 


2976 


LDA 


$B2 


B3CB 20FFAE 


2977 


JSR 


SAEFF 


B3CE 48 


2978 


PHA 




B3CF A548 


2979 


LDA 


Z48 


B3D1 48 


2980 


PHA 




B3D2 A547 


2981 


LDA 


Z47 


B3D4 48 


2982 


PHA 




B3D5 A57B 


2983 


LDA 


Z7B 


B3D7 48 


2984 


PHA 




B3D8 A57A 


2985 


LDA 


Z7A 


B3DA 48 


2986 


PHA 




B3DB 20F8A8 


2987 


JSR 


JA8F8 


B3DE 4C4FB4 


2988 
2989 


JMP 


JB44F 




2990 


;get function name 




2991 


» 




B3E1 A9A5 


2992 


SB3E1 LDA 


$A5 


B3E3 20FFAE 


2993 


JSR 


SAEFF 


B3E6 0980 


2994 


ORA $80 


B3E8 8510 


2995 


STA 


Z10 


B3EA 2092B0 


2996 


JSR 


SB092 


B3ED 854E 


2997 


STA 


Z4E 


B3EF 844F 


2998 


STY 


Z4F 


B3F1 4C8DAD 


2999 
3000 


JMP 


SAD8D 




3001 


; expand FN call 




3002 


; 




B3F4 20E1B3 


3003 


JB3F4 JSR 


SB3E1 


B3F7 A54F 


3004 


LDA 


Z4F 


B3F9 48 


3005 


PHA 




B3FA A54E 


3006 


LDA Z4E 


B3FC 48 


3007 


PHA 




B3FD 20F1AE 


3008 


JSR 


BAEF1 


B400 208DAD 


3009 


JSR 


SAD8D 


B403 68 


3010 


PLA 




B404 854E 


3011 


STA 


Z4E 


B406 68 


3012 


PLA 




B407 854F 


3013 


STA Z4F 


B409 A002 


3014 


LDY 


$02 


B40B B14E 


3015 


LDA 


(Z4E),Y 


B40D 8547 


3016 


STA 


Z47 


B40F AA 


3017 


TAX 




B410 C8 


3018 


INY 




B411 B14E 


3019 


LDA 


(Z4E),Y 


B413 F099 


3020 


BEQ 


BB3AE 


B415 8548 


3021 


STA 


Z48 


B417 C8 


3022 


INY 




B418 B147 


3023 


BB418 LDA 


(Z47),Y 


B41A 48 


3024 


PHA 




B41B 88 


3025 


DEY 





;get function name 

; check for non-direct mode 

;next character must be "(" 

;set no integers/array elements allowed 
; gather name and get pointer to variable 
; check value to be non-string 
;next value must be ")" 

;next character must be "=" 

;save first character of definition 

;save pointer to variable of function 



;save current character pointer 



; execute command DATA 

:set value for function name 



;if next character not code for FN 

;then SYNTAX Error 

;else set bit 7 of 

;no integers or array elements flag 

; gather name and get pointer to variable 

;save pointer to variable 

; check value to be non-string 



;get function name 

;save pointer to name on variable stack 



;get parathensized value 

; check that value is non-string 

; restore pointer to variable name 



;get index to variable 

; save pointer to formal parameters 



;high byte also 

;if data byte + 3 is zero, fatal error 



;save formal parameters on stack 
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B41C 10FA 


3026 


BPL BB418 


B41E A448 


3027 


LDY Z48 


B420 20D4BB 


3028 


JSR SBBD4 


B423 A57B 


3029 


LDA Z7B 


B425 48 


3030 


PHA 


B426 A57A 


3031 


LDA Z7A 


B428 48 


3032 


PHA 


B429 B14E 


3033 


LDA (Z4E),Y 


B42B 857A 


3034 


STA Z7A 


B42D C8 


3035 


INY 


B42E B14E 


3036 


LDA (Z4E),Y 


B430 857B 


3037 


STA Z7B 


B432 A548 


3038 


LDA Z48 


B434 48 


3039 


PHA 


B435 A547 


3040 


LDA Z47 


B437 48 


3041 


PHA 


B438 208AAD 


3042 


JSR SAD8A 


B43B 68 


3043 


PLA 


B43C 854E 


3044 


STA Z4E 


B43E 68 


3045 


PLA 


B43F 854F 


3046 


STA Z4F 


B441 207900 


3047 


JSR X0079 


B444 F003 


3048 


BEQ BB449 


B446 4C08AF 


3049 
3050 


JMP JAF08 

» 


B449 68 


3051 


BB449 PLA 


B44A 857A 


3052 


STA Z7A 


B44C 68 


3053 


PLA 


B44D 857B 


3054 


STA Z7B 


B44F AOOO 


3055 


JB44F LDY $00 


B451 68 


3056 


PLA 


B452 914E 


3057 


STA (Z4E),Y 


B454 68 


3058 


PLA 


B455 C8 


3059 


INY 


B456 914E 


3060 


STA (Z4E),Y 


B458 68 


3061 


PLA 


B459 C8 


3062 


INY 


B45A 914E 


3063 


STA (Z4E),Y 


B45C 68 


3064 


PLA 


B45D C8 


3065 


INY 


B45E 914E 


3066 


STA (Z4E),Y 


B460 68 


3067 


PLA 


B461 C8 


3068 


INY 


B462 914E 


3069 


STA (Z4E),Y 


B464 60 


3070 


RTS 



;get pointer to formal parameters in XY 
; store flp accu Into formal parameters 

;save current character pointer on stack 



;move current pointer of definition 
;into current character pointer 



;get next non-string value 

;set pointer to formal parameters 



;get current character 
;if not zero or ":" 
; SYNTAX Error 



; restore current character pointer 

jand restore formal parameters 
;set index into variable 

;save stack into variable, byte + 
;byte + 1 
;byte + 2 
;byte + 3 
;byte + 4 
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B465 
B468 
B46A 
B46D 
B46E 
B46F 
B471 
B473 
B475 
B477 
B479 
B47B 



208DAD 

AOOO 

20DFBD 

68 

68 

A9FF 

AOOO 

F012 

A664 

A465 

8650 

8451 



B47D 20F4B4 
B480 8662 
B482 8463 
B484 8561 
B486 60 



3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 



;"STR$" command 

WB465 JSR SAD8D 
LDY $00 
JSR SBDDF 
PLA 
PLA 

JB46F LDA $FF 
LDY $00 
BEQ SB487 

SB475 LDX Z64 
LDY Z65 
STX Z50 
STY Z51 



;check if parameter non-string 
; start output area at $00FF 
; convert to string 
; remove own return address 

;set AY to point to string 

;on bottom of stack 

;get description of constant string 

;move pointer to string description 

;into Z50/Z51 



{allocate area according to A 



SB47D JSR SB4F4 
STX Z62 
STY Z63 
STA Z61 
RTS 



; allocate area 
; store pointer 

; store length 
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B487 
B489 
B48B 
B48D 
B48F 
B491 
B493 
B495 
B497 
B498 
B49A 
B49C 
B49E 
B4A0 
B4A2 
B4A4 
B4A6 
B4A8 
B4A9 
B4AB 
B4AC 
B4AE 
B4B0 
B4B2 
B4B4 
B4B5 
B4B7 
B4B9 
B4BB 
B4BD 
B4BF 
B4C0 
B4C3 
B4C5 
B4C7 



A222 

8607 

8608 

856F 

8470 

8562 

8463 

AOFF 

C8 

B16F 

FOOC 

C507 

F004 

C508 

D0F3 

C922 

F001 

18 

8461 

98 

656F 

8571 

A670 

9001 

E8 

8672 

A570 

F004 

C902 

DOOB 

98 

2075B4 

A66F 

A470 

2088B6 



3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 



;get description of constant string into flp accu 



SB487 
SB48D 



BB497 



BB4A4 



BB4A8 
BB4A9 



BB4B5 



BB4BF 



LDX '" 
STX Z07 
STX Z08 
STA Z6F 
STY Z70 
STA Z62 
STY Z63 
LDY $FF 
INY 

LDA (Z6F),' 
BEQ BB4A8 
CMP Z07 
BEQ BB4A4 
CMP Z08 
BNE BB497 
CMP '" 
BEQ BB4A9 
CLC 

STY Z61 
TYA 

ADC Z6F 
STA Z71 
LDX Z70 
BCC BB4B5 
INX 

STX Z72 
LDA Z70 
BEQ BB4BF 
CMP $02 
BNE BB4CA 
TYA 

JSR SB475 
LDX Z6F 
LDY Z70 
JSR SB688 



;set both termintors 

; store pointer to beginning of string 
;in temporary pointer 
;and in flp accu 

initialize string index 

;get next character 
;if zero 

;or first terminator, 

;or second terminator, then end found 
;if terminator = quote 



;save length 

;and set pointer beyond string 

;if from statement in Direct mode, 



;get length 
; allocate area 

;save pointer to it 
;move string into it 
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3133 


;save descriptoi 




3134 


» 


B4CA A616 


3135 


BB4CA LDX Z16 


B4CC E022 


3136 


CPX <Z22 


B4CE D005 


3137 


BNE BB4D5 


B4D0 A219 


3138 


LDX $19 


B4D2 4C37A4 


3139 


BB4D2 JMP JA437 


B4D5 A561 


3140 


BB4D5 LDA Z61 


B4D7 9500 


3141 


STA ZOO.X 


B4D9 A562 


3142 


LDA Z62 


B4DB 9501 


3143 


STA Z01.X 


B4DD A563 


3144 


LDA Z63 


B4DF 9502 


3145 


STA Z02.X 


B4E1 A000 


3146 


LDY $00 


B4E3 8664 


3147 


STX Z64 


B4E5 8465 


3148 


STY Z65 


B4E7 8470 


3149 


STY Z70 


B4E9 88 


3150 


DEY 


B4EA 840D 


3151 


STY ZOD 


B4EC 8617 


3152 


STX Z17 


B4EE E8 


3153 


INX 


B4EF E8 


3154 


INX 


B4F0 E8 


3155 


INX 


B4F1 8616 


3156 


STX Z16 


B4F3 60 


3157 


RTS 



from Z61-Z63 to descriptor stack 

;get descriptor stack index 
;if at $22 

; point to FORMULA TOO COMPLEX Error 

; print error 

;else move descriptor 

;to descriptor stack 



;set pointer to descriptor 
;in flp accu 

; clear guard bit 

;set string flag 

;set previous descriptor stack index 



;set new descriptor stack index 
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B4F4 
B4F6 
B4F7 
B4F9 
B4FA 
B4FC 
B4FE 
B500 
B501 
B503 
B505 
B507 
B509 
B50B 
B50D 
B50F 
B511 
B513 
B514 
B515 



460F 

48 

49FF 

38 

6533 

A434 

B001 

88 

C432 

9011 

D004 

C531 

900B 

8533 

8434 

8535 

8436 

AA 

68 

60 



B516 A210 
B518 A50F 
B51A 30B6 
B51C 2026B5 
B51F A980 
B521 850F 
B523 68 
B524 DODO 



B526 
B528 
B52A 
B52C 
B52E 
B530 
B532 
B534 
B536 
B538 
B53A 
B53C 
B53E 
B540 
B542 
B544 
B546 
B548 
B54B 
B54D 
B54F 
B551 
B553 
B555 
B557 
B559 



A637 

A538 

8633 

8534 

AOOO 

844F 

844E 

A531 

A632 

855F 

8660 

A919 

A200 

8522 

8623 

C516 

F005 

20C7B5 

F0F7 

A907 

8553 

A52D 

A62E 

8522 

8623 

E430 



3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 



; allocate t of bytes in A 



SB4F4 LSR ZOF 

BB4F6 PHA 

EOR $FF 
SEC 

ADC Z33 
LDY Z34 
BCS BB501 
DEY 

BB501 CPY Z32 

BCC BB516 
BNE BB50B 
CMP Z31 
BCC BB516 

BB50B STA Z33 
STY Z34 
STA Z35 
STY Z36 
TAX 
PLA 
RTS 

BB516 LDX $10 
LDA ZOF 
BMI BB4D2 
JSR SB526 
LDA $80 
STA ZOF 
PLA 
BNE BB4F6 



; clear error flag 
;save length 



; subtract length from string storage ptr 



;high byte also 
;if above 
; array area 



;set new string storage pointer 
;set utility string pointer also 



;and set AX 

; restore length 



;if no memory left 

; print OUT OF MEMORY Error 

;else perform garbage clean-up 

; clear flag 

;restore # bytes to allocate 

;and perform allocation 



string garbage clean-up 

;get memory limit 



SB526 LDX Z37 
LDA Z38 

JB52A STX Z33 
STA Z34 
LDY $00 
STY Z4F 
STY Z4E 
LDA Z31 
LDX Z32 
STA Z5F 
STX Z60 
LDA <Z19 
LDX >Z19 
STA Z22 
STX Z23 

BB544 CMP Z16 

BEQ BB54D 
JSR SB5C7 
BEQ BB544 

BB54D LDA $07 
STA Z53 
LDA Z2D 
LDX Z2E 
STA Z22 
STX Z23 

BB559 CPX Z30 



;set new string storage pointer 

;set no descriptor of highest text yet 

;get end of array area 
initialize value for highest text ptr 
;AX - ptr to bottom of descriptor stack 
;and store in temporary pointer 

;if not top index of descriptor stack 
;find highest text area 

;set step to 7 

;move pointer to name table 

;into temporary pointer 
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B55B D004 
B55D C52F 
B55F F005 
B561 20BDB5 
B564 F0F3 
B566 8558 
B568 8659 
B56A A903 
B56C 8553 
B56E A558 
B570 A659 
B572 E432 
B574 D007 
B576 C531 
B578 D003 
B57A 4C06B6 
B57D 8522 
B57F 8623 
B581 AOOO 
B583 B122 
B585 AA 
B586 C8 
B587 B122 
B589 08 
B58A C8 
B58B B122 
B58D 6558 
B58F 8558 
B591 C8 
B592 B122 
B594 6559 
B596 8559 
B598 28 
B599 10D3 
B59B 8A 
B59C 30DO 
B59E C8 
B59F B122 
B5A1 AOOO 
B5A3 OA 
B5A4 6905 
B5A6 6522 
B5A8 8522 
B5AA 9002 
B5AC E623 
B5AE A623 
B5B0 E459 
B5B2 D004 
B5B4 C558 
B5B6 FOBA 
B5B8 20C7B5 
B5BB F0F3 



3219 

3220 

3221 

3222 BB561 

3223 

3224 BB566 

3225 

3226 

3227 

3228 BB56E 

3229 

3230 BB572 

3231 

3232 

3233 

3234 

3235 BB57D 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 BB5AE 

3265 BB5B0 
3266 

3267 

3268 

3269 BB5B8 

3270 



BNE BB561 

CMP Z2F 

BEQ BB566 

JSR SB5BD 

BEQ BB559 

STA Z58 

SIX Z59 

LDA $03 

STA Z53 

LDA Z58 

LDX Z59 

CPX Z32 

BNE BB57D 

CMP Z31 

BNE BB57D 

JMP JB606 

STA Z22 

STX Z23 

LDY $00 

LDA (Z22),Y 

TAX 

INY 

LDA (Z22),Y 

PHP 

INY 

LDA (Z22),Y 

ADC Z58 

STA Z58 

INY 

LDA (Z22),Y 

ADC Z59 

STA Z59 

PLP 

BPL BB56E 

TXA 

BMI BB56E 

INY 

LDA (Z22),Y 

LDY $00 

ASL A 

ADC $05 

ADC Z22 

STA Z22 

BCC BB5AE 

INC Z23 

LDX Z23 

CPX Z59 

BNE BB5B8 

CMP Z58 

BEQ BB572 

JSR SB5C7 

BEQ BB5B0 



;lf end of name table 
;not reached yet 

;find highest text area 

;save pointer into array area 

; reset step to 3 

;get pointer to next array 

;i£ end of array area 



;move text area 

;else save array pointer 

;into temporary pointer 



;save first character of name 

;save status of second character of name 
;add length of array 
;to array pointer 

;high byte also 

; second character of variable name 
;must have bit 7 set for string 
; first character of variable name 
;must have bit 7 low for string 

;get # of dimensions 

;and initialize Y 

; compute offset to first element 

; point to first element 

;if not pointing beyond last element 



;find highest text address 
;and repeat for next address 
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B5BD B122 
B5BF 3035 
B5C1 C8 
B5C2 B122 
B5C4 1030 
B5C6 C8 



B5C7 
B5C9 
B5CB 
B5CC 
B5CE 
B5CF 
B5D0 
B5D2 
B5D4 
B5D6 
B5D8 
B5DA 
B5DC 
B5DE 
B5E0 
B5E2 
B5E4 
B5E6 
B5E8 
B5EA 
B5EC 
B5EE 
B5F0 
B5F2 
B5F4 
B5F6 
B5F8 
B5F9 
B5FB 
B5FD 
B5FF 
B601 
B603 
B605 



B122 

F02B 

C8 

B122 

AA 

C8 

B122 

C534 

9006 

D01E 

E433 

B01A 

C560 

9016 

D004 

E45F 

9010 

86 5F 

8560 

A522 

A623 

854E 

864F 

A553 

8555 

A553 

18 

6522 

8522 

9002 

E623 

A623 

AOOO 
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3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 



; check string pointed to by Z22/Z23 

;as being highest string area outside allocated area 



SB5BD LDA (Z22),Y 
BMI BB5F6 
INY 

LDA (Z22),Y 
BPL BB5F6 
INY 



;if name has bit 7 of first char - 

;and bit 7 of second character = 1 
;drop thru 



; check string indexed by descriptor 
;for being highest string area 
;outside of allocated area 



SB5C7 LDA (Z22),Y 
BEQ BB5F6 
INY 

LDA (Z22),Y 
TAX 
INY 

LDA (Z22),Y 
CMP Z34 
BCC BB5DC 
BNE BB5F6 
CPX Z33 
BCS BB5F6 

BB5DC CMP Z60 

BCC BB5F6 
BNE BB5E6 
CPX Z5F 
BCC BB5F6 

BB5E6 STX Z5F 
STA Z60 
LDA Z22 
LDX Z23 
STA Z4E 
STX Z4F 
LDA Z53 
STA Z55 

BB5F6 LDA Z53 
CLC 

ADC Z22 
STA Z22 
BCC BB601 
INC Z23 

BB601 LDX Z23 
LDY $00 
RTS 



;if length =■ 
rthen no text area 



;get pointer to text into AX 



;if pointer is 

; above string storage area 



;then string is not highest 

;if pointer is 

; below previous highest 



;then not highest 

;save pointer to new highest 

;get pointer to variable or descriptor 

;save pointer to winner 
; save step size of winner 

;add step 

;to variable or descriptor pointer 

;variable or descriptor pointer in AX 
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3321 


continuation of s 




3322 


j 




B606 A54F 


3323 


JB606 LDA 


Z4F 


B608 054E 


3324 


ORA 


Z4E 


B60A F0F5 


3325 


BEQ 


BB601 


B60C A555 


3326 


LDA 


Z55 


B60E 2904 


3327 


AND 


$04 


B610 4A 


3328 


LSR 


A 


B611 A8 


3329 


TAY 




B612 8555 


3330 


STA 


Z55 


B614 B14E 


3331 


LDA (Z4E),Y 


B616 655F 


3332 


ADC 


Z5F 


B618 855A 


3333 


STA 


Z5A 


B61A A560 


3334 


LDA 


Z60 


B61C 6900 


3335 


ADC 


$00 


B61E 855B 


3336 


STA 


Z5B 


B620 A533 


3337 


LDA 


Z33 


B622 A634 


3338 


LDX 


Z34 


B624 8558 


3339 


STA 


Z58 


B626 8659 


3340 


SIX 


Z59 


B628 20BFA3 


3341 


JSR 


SA3BF 


B62B A455 


3342 


LDY 


Z55 


B62D C8 


3343 


INY 




B62E A558 


3344 


LDA 


Z58 


B630 914E 


3345 


STA 


(Z4E),Y 


B632 AA 


3346 


TAX 




B633 E659 


3347 


INC 


Z59 


B635 A559 


3348 


LDA 


Z59 


B637 C8 


3349 


INY 




B638 914E 


3350 


STA 


(Z4E),Y 


B63A 4C2AB5 


3351 


JMP 


JB52A 



string garbage clean-up 

;if no pointer to descriptor 
;of highest string yet, 
; return 

; compute offset to descriptor 



;get length of text 

;add to pointer to beginning of text 
; store in high limit for move routine 
;high bytes also 



;move current string storage pointer 

;into high limit of output for move 

;move bytes 

;get offset to descriptor 

;let descriptor point to moved text area 



;high byte also 
;repeat for next string 
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3353 


jdiadic operator " 




3354 


; 


B63D A565 


3355 


JB63D LDA Z65 


B63F 48 


3356 


PHA 


B640 A564 


3357 


LDA Z64 


B642 48 


3358 


PHA 


B643 2083AE 


3359 


JSR SAE83 


B646 208FAD 


3360 


JSR SAD8F 


B649 68 


3361 


PLA 


B64A 856F 


3362 


STA Z6F 


B64C 68 


3363 


PLA 


B64D 8570 


3364 


STA Z70 


B64F A000 


3365 


LDY $00 


B651 B16F 


3366 


LDA (Z6F),Y 


B653 18 


3367 


CLC 


B654 7164 


3368 


ADC (Z64),Y 


B656 9005 


3369 


BCC BB65D 


B658 A217 


3370 


LDX $17 


B65A 4C37A4 


3371 
3372 


JMP JA437 


B65D 207 5B4 


3373 


BB65D JSR SB475 


B660 207AB6 


3374 


JSR SB67A 


B663 A550 


3375 


LDA Z50 


B665 A451 


3376 


LDY Z51 


B667 20AAB6 


3377 


JSR SB6AA 


B66A 208CB6 


3378 


JSR SB68C 


B66D A56F 


3379 


LDA Z6F 


B66F A470 


3380 


LDY Z70 


B671 20AAB6 


3381 


JSR SB6AA 


B674 20CAB4 


3382 


JSR BB4CA 


B677 4CB8AD 


3383 


JMP JADB8 



' for strings 
;save pointer to left operand 



;get value of next operand in flp accu 
;must be string 



;restore temporary string address 

;get length of left operand 

;add length of right operand 
;if => 256 

; point to STRING TOO LONG Error 
; print error 

;allocate area for sum of lengths 
;move left operand 

;get descriptor of right operand 
; de-allocate old area 
;move right operand 

; de-allocate old area 

;save descriptor on stack 

;go back to expression evaluation 
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B67A 
B67C 
B67E 
B67F 
B680 
B682 
B683 
B684 
B686 
B687 



B688 
B68A 
B68C 
B68D 
B68F 
B690 
B691 
B693 
B695 
B696 
B698 
B699 
B69A 
B69C 
B69E 
B6A0 
B6A2 



AOOO 

B16F 

48 

C8 

B16F 

AA 

C8 

B16F 

A8 

68 



8622 

8423 

A8 

FOOA 

48 

88 

B122 

9135 

98 

DOF8 

68 

18 

6535 

8535 

9002 

E636 

60 



3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 



;move 
;into 



string with descriptor pointed by Z6F/Z70 
last allocated area 



SB67A LDY $00 

LDA (Z6F),Y 

PHA ;save length from descriptor 

INY 

LDA (Z6F),Y 

TAX ; pointer from descriptor 

INY 

LDA (Z6F),Y 

TAY ;into XY 

PLA ; length into A 



;move 
;into 



string with length in A, pointer in XY 
last allocated area 



SB688 STX Z22 
STY Z23 

SB68C TAY 

BEQ BB699 
PHA 

BB690 DEY 

LDA (Z22),Y 

STA (Z35),Y 

TYA 

BNE BB690 

PLA 

BB699 CLC 

ADC Z35 
STA Z35 
BCC BB6A2 
INC Z36 

BB6A2 RTS 



;save pointer in temporary pointer area 

;if length = 

; don't move 

;save length 

; for every character 

;move from string 

;to last allocated area 

;until no more characters 

; res tore length 

;set Z35/Z36 to end of allocated area 
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3420 


; de-a] 


Lloca 


te a tea 




3421 


; 






B6A3 208FAD 


3422 


SB 6 A3 


JSR 


SAD8F 


B6A6 A564 


3423 


SB6A6 


LDA 


Z64 


B6A8 A465 


3424 




LDY 


Z65 


B6AA 8522 


3425 


SB6AA 


STA 


Z22 


B6AC 8423 


3426 




STY 


Z23 


B6AE 20DBB6 


3427 




JSR 


SB6DB 


B6B1 08 


3428 




PHP 




B6B2 AOO0 


3429 




LDY 


$00 


B6B4 B122 


3430 




LDA (Z22),Y 


B6B6 48 


3431 




PHA 




B6B7 C8 


3432 




INY 




B6B8 B122 


3433 




LDA (Z22),Y 


B6BA AA 


3434 




TAX 




B6BB C8 


3435 




INY 




B6BC B122 


3436 




LDA 


(Z22),Y 


B6BE A8 


3437 




TAY 




B6BF 68 


3438 




PLA 




B6C0 28 


3439 




PLP 




B6C1 D013 


3440 




BNE 


BB6D6 


B6C3 C434 


3441 




CPY 


Z34 


B6C5 DOOF 


3442 




BNE 


BB6D6 


B6C7 E433 


3443 




CPX 


Z33 


B6C9 DOOB 


3444 




BNE 


BB6D6 


B6CB 48 


3445 




PHA 




B6CC 18 


3446 




CLC 




B6CD 6533 


3447 




ADC 


Z33 


B6CF 8533 


3448 




STA 


Z33 


B6D1 9002 


3449 




BCC 


BB6D5 


B6D3 E634 


3450 




INC 


Z34 


B6D5 68 


3451 


BB6D5 


PLA 




B6D6 8622 


3452 


BB6D6 


SIX 


Z22 


B6D8 8423 


3453 




STY 


Z23 


B6DA 60 


3454 
3455 




RTS 






3456 


; check descriptor 




3457 


» 






B6DB C418 


3458 


SB6DB 


CPY 


Z18 


B6DD DOOC 


3459 




BNE 


BB6EB 


B6DF C517 


3460 




CMP 


Z17 


B6E1 D008 


3461 




BNE 


BB6EB 


B6E3 8516 


3462 




STA 


Z16 


B6E5 E903 


3463 




SBC 


$03 


B6E7 8517 


3464 




STA 


Z17 


B6E9 AOOO 


3465 




LDY 


$00 


B6EB 60 


3466 


BB6EB 


RTS 





; check If value is a string 

;set AY to pointer to descriptor 
;and store in temporary pointer 

; check descriptor stack 

;save status (Z=l when desc on stack) 



;save string length 

; pointer to string in XY 



; string length into A 

; restore status 

; branch if descriptor on stack 

;if pointer to string 

;= string storage pointer 

;save length 

;add length to string storage pointer 
;to form new string storage pointer 
; (de-allocates string) 

;restore length 

;save pointer to string 



;if descriptor pointer 

;same as previous descriptor stack ptr 

;then set descriptor stack index 

;to point to it 

;set previous descriptor index below it 

; leave new descriptor pointer in AY 
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B6EC 
B6EF 
B6F0 
B6F1 
B6F3 
B6F6 
B6F7 
B6F9 
B6FB 
B6FC 
B6FD 



20A1B7 

8A 

48 

A901 

207DB4 

68 

AOOO 

9162 

68 

68 

4CCAB4 



3468 ;"CHR$" command 

3469 ; 

3470 WB6EC JSR SB7A1 



B700 
B703 
B705 
B706 
B708 
B70A 
B70B 
B70C 
B70D 
B70E 
B70F 
B712 
B714 
B716 
B719 
B71A 
B71B 
B71C 
B71D 
B71F 
B721 
B723 
B725 
B726 
B729 



2061B7 

D150 

98 

9004 

B150 

AA 

98 

48 

8A 

48 

207DB4 

A550 

A451 

20AAB6 

68 

A8 

68 

18 

6522 

8522 

9002 

E623 

98 

208.CB6 

4CCAB4 



3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 

3484 WB700 JSR SB761 

3485 CMP (Z50),Y 

3486 TYA 

3487 JB706 BCC BB70C 

3488 LDA (Z50),Y 

3489 TAX 

3490 TYA 

3491 BB70C PHA 

3492 BB70D TXA 

3493 BB70E PHA 



TXA 

PHA 

LDA $01 

JSR SB47D 

PLA 

LDY $00 

STA (Z62),Y 

PLA 

PLA 

JMP BB4CA 

'LEFT$" command 



3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 



JSR SB47D 
LDA Z50 
LDY Z51 
JSR SB6AA 
PLA 
TAY 
PLA 
CLC 

ADC Z22 
STA Z22 
BCC BB725 
INC Z23 



B72C 2061B7 
B72F 18 
B730 F150 
B732 49FF 
B734 4C06B7 



3506 BB725 TYA 

3507 JSR SB68C 

3508 JMP BB4CA 

3509 ; 

3510 ;"RIGHT$" command 

3511 ; 

3512 WB72C JSR SB761 

3513 CLC 

3514 SBC (Z50),Y 

3515 EOR $FF 

3516 JMP JB706 



;get integer paramenter Into X 

;and save 
;set length 
;allocate area 
; restore integer 

;save character in allocated area 

; remove own return address 

;save descriptor on descriptor stack 



;get 2 parameters 

; compare length wanted to stack length 

;A = initial index in text 

;i£ length requested >= string length 

;use string length instead 

;save initial index 
;get length wanted 
;and save it 
;de-allocate area 

;set AY to point to first parameter 
; de-allocate temporary string 
;restore length requested 

; restore initial index in text 

;add to text pointer 



;for length requested, 

;move string into allocated area 

;save descriptor on descriptor stack 



;get 2 parameters 

; compute length - length requested 

;go do tail end of LEFT$ 
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3518 


;"MID$" command 




3519 


> 




B737 A9FF 


3520 WB737 LDA 


$FF 


B739 8565 


3521 


STA 


Z65 


B73B 207900 


3522 


JSR X0079 


B73E C929 


3523 


CMP 


') 


B740 F006 


3524 


BEQ 


BB748 


B742 20FDAE 


3525 


JSR 


SAEFD 


B745 209EB7 


3526 


JSR 


SB79E 


B748 2061B7 


3527 


BB748 JSR 


SB761 


B74B F04B 


3528 


BEQ 


BB798 


B74D CA 


3529 


DEX 




B74E 8A 


3530 


TXA 




B74F 48 


3531 


PHA 




B750 18 


3532 


CLC 




B751 A200 


3533 


LDX 


$00 


B753 F150 


3534 


SBC 


(Z50),Y 


B755 B0B6 


3535 


BCS 


BB70D 


B757 49FF 


3536 


EOR $FF 


B759 C565 


3537 


CMP 


Z65 


B75B 90B1 


3538 


BCC 


BB70E 


B75D A565 


3539 


LDA 


Z65 


B75F BOAD 


3540 
3541 


BCS 


BB70E 




3542 


;get first 


: two pri 




3543 


> 




B761 20F7AE 


3544 


SB761 JSR 


SAEF7 


B764 68 


3545 


FLA 




B765 A8 


3546 


TAY 




B766 68 


3547 


PLA 




B767 8555 


3548 


STA 


Z55 


B769 68 


3549 


PLA 




B76A 68 


3550 


PLA 




B76B 68 


3551 


PLA 




B76C AA 


3552 


TAX 




B76D 68 


3553 


PLA 




B76E 8550 


3554 


STA 


Z50 


B770 68 


3555 


PLA 




B771 8551 


3556 


STA 


Z51 


B773 A555 


3557 


LDA 


Z55 


B775 48 


3558 


PHA 




B776 98 


3559 


TYA 




B777 48 


3560 


PHA 




B778 AOOO 


3561 


LDY 


$00 


B77A 8A 


3562 


TXA 




B77B 60 


3563 


RTS 





;set default 3rd parameter to 255 

;get current character 
;lf not ")" 

;must be "," 

;get next Integer 

;get first 2 parameters 

;if 2nd parameter - 0, ILLEGAL QUANTITY 

; decrement Index 

;and save It on stack 



; compute Index - length 
;lf larger, get null string 
;lf t characters remaining 

;less than 3rd parameter, 

;take t of characters remaining instead 

;do tail end of LEFT$ 



;next character must be ")" 
; save return address 

; remove return address 

; restore 2nd parameter (integer) 



;move 1st parameter (ptr to descriptor) 
;into Z50/Z51 



; restore return address 



;set flags according to 2nd parameter 
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3565 


; "LEN 


" command 




3566 


; 




B77C 2082B7 


3567 


WB77C 


JSR SB782 


B77F 4CA2B3 


3568 
3569 


» 


JMP JB3A2 


B782 20A3B6 


3570 


SB782 


JSR SB6A3 


B785 A200 


3571 




LDX $00 


B787 860D 


3572 




STX ZOD 


B789 A8 


3573 




TAY 


B78A 60 


3574 
3575 




RTS 




3576 


; "ASC 


" command 




3577 


y 




B78B 2082B7 


3578 


WB78B 


JSR SB782 


B78E F008 


3579 




BEQ BB798 


B790 A000 


3580 




LDY $00 


B792 B122 


3581 




LDA (Z22),Y 


B794 A8 


3582 




TAY 


B795 4CA2B3 


3583 
3584 




JMP JB3A2 


B798 4C48B2 


3585 
3586 


BB798 
i 


JMP JB248 




3587 


; fetch Integer va! 




3588 


; 




B79B 207300 


3589 


SB79B 


JSR X0073 


B79E 208AAD 


3590 


SB79E 


JSR SAD8A 


B7A1 20B8B1 


3591 


SB7A1 


JSR SB1B8 


B7A4 A664 


3592 




LDX Z64 


B7A6 DOFO 


3593 




BNE BB798 


B7A8 A665 


3594 




LDX Z65 


B7AA 4C7900 


3595 




JMP X0079 



; de-allocate parameter, get length in Y 
; convert integer in Y to flp 

;de-allocate temp string (parameter) 

;reset string flag 
;move length to Y 



;de-allocate parameter, get length in Y 
;\i null string, ILLEGAL QUANTITY Error 

;get first character of string 

;move into Y 

; convert integer in Y to flp 

; print error 



;get next character 

;get next non-string value 

;convert positive flp accu to integer 

;if not in range - 255 

; print error ILLEGAL QUANTITY 

;load value into X 

;get current character again and return 
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3597 


; "VAL 


" command 




3598 


1 






B7AD 2082B7 


3599 


WB7AD 


JSR 


SB782 


B7B0 D003 


3600 




BNE 


BB7B5 


B7B2 4CF7B8 


3601 




JMP 


JB8F7 


B7B5 A67A 


3602 


BB7B5 


LDX 


Z7A 


B7B7 A47B 


3603 




LDY 


Z7B 


B7B9 8671 


3604 




SIX 


Z71 


B7BB 8472 


3605 




STY 


Z72 


B7BD A622 


3606 




LDX 


Z22 


B7BF 867A 


3607 




SIX 


Z7A 


B7C1 18 


3608 




CLC 




B7C2 6522 


3609 




ADC 


Z22 


B7C4 8524 


3610 




STA 


Z24 


B7C6 A623 


3611 




LDX 


Z23 


B7C8 867B 


3612 




STX 


Z7B 


B7CA 9001 


3613 




BCC 


BB7CD 


B7CC E8 


3614 




INX 




B7CD 8625 


3615 


BB7CD 


STX 


Z25 


B7CF AOOO 


3616 




LDY 


$00 


B7D1 B124 


3617 




LDA 


(Z24),Y 


B7D3 48 


3618 




PHA 




B7D4 98 


3619 




TYA 




B7D5 9124 


3620 




STA 


(Z24),Y 


B7D7 207900 


3621 




JSR 


X0079 


B7DA 20F3BC 


3622 




JSR 


SBCF3 


B7DD 68 


3623 




PLA 




B7DE AOOO 


3624 




LDY 


$00 


B7E0 9124 


3625 




STA 


(Z24),Y 


B7E2 A671 


3626 


SB7E2 


LDX 


Z71 


B7E4 A472 


3627 




LDY 


Z72 


B7E6 867A 


3628 




STX 


Z7A 


B7E8 847B 


3629 




STY 


Z7B 


B7EA 60 


3630 
3631 




RTS 






3632 


;get i 


address into 




3633 


j 






B7EB 208AAD 


3634 


SB7EB 


JSR 


SAD8A 


B7EE 20F7B7 


3635 




JSR 


SB7F7 


B7F1 20FDAE 


3636 


SB7F1 


JSR 


SAEFD 


B7F4 4C9EB7 


3637 




JMP 


SB79E 



; de-allocate parameter, get length in Y 

;if length zero, 

;set result z«ro 

;move current character pointer 

;to temporary pointer 

;move low byte of text pointer 
;into current character pointer 

;add length 

;to create pointer to end of string 

;move high byte of text pointer 

;into high byte of current character ptr 

;add carry of length 

;set high byte of ptr to end of string 

;get first byte beyond string 
;and save it on stack 

;set null instead 

;get current character 

; convert string to flp 

;restore first byte beyond string 

;and restore 

;get new value for current character ptr 

;and store it as current character ptr 



;get non-string value from statement 
; convert flp accu to integer at Z14/Z15 
;next character must be "," 
;get next integer from statement into X 
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3639 


; convert floating 




3640 


; 






B7F7 A566 


3641 


SB7F7 


LDA 


Z66 


B7F9 309D 


3642 




BMI 


BB798 


B7FB A561 


3643 




LDA 


Z61 


B7FD C991 


3644 




CMP 


$91 


B7FF B097 


3645 




BCS 


BB798 


B801 209BBC 


3646 




JSR 


SBC9B 


B804 A564 


3647 




LDA 


Z64 


B806 A465 


3648 




LDY 


Z65 


B808 8414 


3649 




STY 


Z14 


B80A 8515 


3650 




STA 


Z15 


B80C 60 


3651 
3652 


» 


RTS 






3653 


;"PEEK" command 




3654 


; 






B80D A515 


3655 


WB80D 


LDA 


Z15 


B80F 48 


3656 




PHA 




B810 A514 


3657 




LDA 


Z14 


B812 48 


3658 




PHA 




B813 20F7B7 


3659 




JSR 


SB7F7 


B816 A000 


3660 




LDY 


$00 


B818 B114 


3661 




LDA 


(Z14),Y 


B81A A8 


3662 




TAY 




B81B 68 


3663 




PLA 




B81C 8514 


3664 




STA 


Z14 


B81E 68 


3665 




PLA 




B81F 8515 


3666 




STA 


Z15 


B821 4CA2B3 


3667 
3668 


t 


JMP 


JB3A2 




3669 


; "POKE" command 




3670 


» 






B824 20EBB7 


3671 


WB824 


JSR 


SB7EB 


B827 8A 


3672 




TXA 




B828 AOOO 


3673 




LDY 


$00 


B82A 9114 


3674 




STA 


(Z14),Y 


B82C 60 


3675 




RTS 





point into integer in Z14/Z15 
;if negative 



;or exponent > 16 

;then ILLEGAL QUANTITY Error 

; convert flp accu to integer at Z64/Z65 



;and into result field 



;save contents of Z14/Z15 

;convert flp accu to integer in Z14/Z15 

;get byte 

;and save in Y 

;then restore Z14/Z15 

; convert integer in Y to flp 

;get address in Z14/Z15, integer in X 
;move integer from X to address 
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B82D 
B830 
B832 
B834 
B837 
B839 
B83C 
B83E 
B840 
B842 
B844 
B846 
B848 



20EBB7 

8649 

A200 

207900 

F003 

20F1B7 

864A 

A000 

B114 

454A 

2549 

F0F8 

60 



B849 A911 
B84B AOBF 
B84D 4C67B8 



B850 208CBA 



B853 A566 
B855 49FF 
B857 8566 
B859 456E 
B85B 856F 
B85D A561 
B85F 4C6AB8 



3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 



; "WAIT" command 



WB82D JSR 
STX 
LDX 
JSR 
BEQ 
JSR 

BB83C STX 
LDY 

BB840 LDA 
EOR 
AND 
BEQ 

BB848 RTS 



SB7EB 

Z49 

$00 

X0079 

BB83C 

SB7F1 

Z4A 

$00 

(Z14),Y 

Z4A 

Z49 

BB840 



;get address in Z14/Z15, integer in X 

;save mask 

; default pattern - 00 

;get current character 

;if not end of statement 

;get next integer from statement into X 

; save pattern 

;get byte 

;Exclusive OR with pattern 

;mask 

; repeat until non-zero 



add 0.5 to flp accu (half rounding) 



SB849 LDA CTBF11 
LDY >TBF11 
JMP SB867 



;set AY to point to value 0.5 
;add to flp accu 



; "MINUS" operator 

SB850 JSR SBA8C ; subtract flp accu from # indexed by AY 

;diadic operator "-" 



WB853 LDA Z66 
EOR $FF 
STA Z66 
EOR Z6E 
STA Z6F 
LDA Z61 
JMP JB86A 



; complement sign 



;also adjust Exclusive OR of both signs 
; fetch exponent of flp accu 
;go apply diadic operator "+" 
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B862 2099B9 3713 BB862 JSR SB999 
B865 903C 3714 BCC BB8A3 

3715 ; 

3716 ;add flp # indexed 

3717 ; 

B867 208CBA 3718 SB867 JSR SBA8C 

3719 ; 

3720 ;"PLUS" operator 

3721 ; 



B86A 


3722 


WB86A 


= 


* 


B86A D003 


3723 


JB86A 


BNE 


BB86F 


B86C 4CFCBB 


3724 
3725 


» 


JMP 


SBBFC 


B86F A670 


3726 


BB86F 


LDX 


Z70 


B871 8656 


3727 




SIX 


Z56 


B873 A269 


3728 




LDX 


$69 


B875 A569 


3729 




LDA 


Z69 


B877 A8 


3730 


SB877 


TAY 




B878 FOCE 


3731 




BEQ 


BB848 


B87A 38 


3732 




SEC 




B87B E561 


3733 




SBC 


Z61 


B87D F024 


3734 




BEQ 


BB8A3 


B87F 9012 


3735 




BCC 


BB893 


B881 8461 


3736 




STY 


Z61 


B883 A46E 


3737 




LDY 


Z6E 


B885 8466 


3738 




STY 


Z66 


B887 49FF 


3739 




EOR $FF 


B889 6900 


3740 




ADC 


$00 


B88B A000 


3741 




LDY 


$00 


B88D 8456 


3742 




STY 


Z56 


B88F A261 


3743 




LDX $61 


B891 D004 


3744 




BNE 


BB897 


B893 AOOO 


3745 


BB893 


LDY 


$00 


B895 8470 


3746 




STY 


Z70 


B897 C9F9 


3747 


BB897 


CUP 


$F9 


B899 30C7 


3748 




BMI 


BB862 


B89B A8 


3749 




TAY 




B89C A570 


3750 




LDA 


Z70 


B89E 5601 


3751 




LSR 


Z01.X 


B8A0 20B0B9 


3752 




JSR 


SB9B0 


B8A3 246F 


3753 


BB8A3 


BIT 


Z6F 


B8A5 1057 


3754 




BPL 


BB8FE 



;per£onn preshifts according to A 
;do addition or subtraction 

by AY to flp accu 

; perform addition 



;if flp accu = 

;move 2nd flp accu into flp accu 

'. save guard bit 

;X = pointer to smaller 

;get exponent of 2nd flp accu 

;if zero 

;result already in flp accu 

; compute difference in exponents 
;if zero, go act on fractions 
;if second flp accu higher 
;set exponent of result 
;and sign of result 



; two's complement of difference 

;set guard bit to for higher 
; point to smaller 

;if second flp accu lower 

;move to guard bit of lower 

;if difference more than 8 

;do preshifts 

;save number of preshifts 

;get guard bit 

;pad with zero 

;do preshifts 

;if both signs are the same 

:add fractions 
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B8A7 
B8A9 
B8A6 
B8AD 
B8AF 
B8B0 
B8B2 
B8B4 
B8B6 
B8B9 
B8BB 
B8BD 
B8C0 
B8C2 
B8C4 
B8C7 
B8C9 
B8CB 
B8CE 
B8D0 
B8D2 
B8D4 
B8D7 
B8D9 
B8DA 
B8DB 
B8DD 
B8DF 
B8E1 
B8E3 
B8E5 
B8E7 
B8E9 
B8EB 
B8ED 
B8EF 
B8F1 
B8F3 
B8F5 
B8F7 
B8F9 
B8FB 
B8FD 



A061 

E069 

F002 

A069 

38 

49FF 

6556 

8570 

B90400 

F504 

8565 

B90300 

F503 

8564 

B90200 

F502 

8563 

B90100 

F501 

8562 

B003 

2047B9 

A000 

98 

18 

A662 

DO 4 A 

A663 

8662 

A664 

8663 

A665 

8664 

A670 

8665 

8470 

6908 

C920 

D0E4 

A900 

8561 

8566 

60 



3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 



; negate flp accu if borrow, and postshlft 
;let Y point 



BB8AF 



JB8D2 
BB8D7 

BB8DB 



JB8F7 
JB8F9 
JB8FB 



LDY $61 
CPX $69 
BEQ BB8AF 
LDY $69 
SEC 

EOR $FF 
ADC Z56 
STA Z70 
LDA Z04.Y 
SBC Z04.X 
STA Z65 
LDA Z03.Y 
SBC Z03.X 
STA Z64 
LDA Z02.Y 
SBC Z02.X 
STA Z63 
LDA Z01.Y 
SBC Z01.X 
STA Z62 
BCS BB8D7 
JSR SB947 
LDY $00 
TYA 
CLC 

LDX Z62 
BNE BB929 
LDX Z63 
STX Z62 
LDX Z64 
STX Z63 
LDX Z65 
STX Z64 
LDX Z70 
STX Z65 
STY Z70 
ADC $08 
CMP $20 
BNE BB8DB 
LDA $00 
STA Z61 
STA Z66 
RTS 



;to higher 

; compute initial borrow 
;from guard bit 



; compute difference, byte 4 
;byte 3 
;byte 2 

;and byte 1 

;if borrow 

;negate result 

; initialize parameters 

;for postshlft 

;if most significant byte 

; shift fraction over one byte 



; correct exponent by 8 

; repeat until 4 bytes shifted 
; because then result - 
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3802 ;add fractions 

3803 ; 

B8FE 6556 3804 BB8FE ADC Z56 

B900 8570 3805 STA Z70 

B902 A565 3806 LDA Z65 

B904 656D 3807 ADC Z6D 

B906 8565 3808 STA Z65 

B908 A564 3809 LDA Z64 

B90A 656C 3810 ADC Z6C 

B90C 8564 3811 STA Z64 

B90E A563 3812 LDA Z63 

B910 656B 3813 ADC Z6B 

B912 8563 3814 STA Z63 

B914 A562 3815 LDA Z62 

B916 656A 3816 ADC Z6A 

B918 8562 3817 STA Z62 

B91A 4C36B9 3818 JMP JB936 

3819 ; 

3820 ;postshlft 
.3821 ; 

B91D 6901 3822 BB91D ADC $01 

B91F 0670 3823 ASL Z70 

B921 2665 3824 ROL Z65 

B923 2664 3825 ROL Z64 

B925 2663 3826 ROL Z63 

B927 2662 3827 ROL Z62 

B929 10F2 3828 BB929 BPL BB91D 

B92B 38 3829 SEC 

B92C E561 3830 SBC Z61 

B92E B0C7 3831 BCS JB8F7 

B930 49FF 3832 EOR $FF 

B932 6901 3833 ADC $01 

B934 8561 3834 STA Z61 

B936 900E 3835 JB936 BCC BB946 

B938 E661 3836 JB938 INC Z61 

B93A F042 3837 BEQ BB97E 

B93C 6662 3838 ROR Z62 

B93E 6663 3839 ROR Z63 

B940 6664 3840 ROR Z64 

B942 6665 3841 ROR Z65 

B944 6670 3842 ROR Z70 

B946 60 3843 BB946 RTS 



; compute Initial fraction 
;also set guard bit 

; compute sum, byte 4 



;byte 3 

;byte 2 

;byte 1 

;go adjust for carry outside byte 1 



;add 1 to exponent 
; shift left 1 bit 
;over whole fraction 



; repeat until MSB = 1 

; subtract correction from exponent 

{underflow causes zero result 



; store new exponent 

;carry means overflow in fraction 

;so increment exponent 

; unless exponent overflows 

;and shift right by one bit 



; including guard bit 
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3845 


;negate flp accu 






3846 


; 








B947 A566 


3847 


SB947 


LDA 


Z66 




B949 49FF 


3848 




EOR 


$FF 


; complement sign 


B94B 8566 


3849 




SIA 


Z66 




B94D A562 


3850 


SB94D 


LDA 


Z62 




B94F 49FF 


3851 




EOR 


$FF 


; complement fraction byte 


B951 8562 


3852 




STA 


Z62 




B953 A563 


3853 




LDA 


Z63 




B955 49FF 


3854 




EOR 


$FF 


;byte 3 


B957 8563 


3855 




STA 


Z63 




B959 A564 


3856 




LDA 


Z64 




B95B 49FF 


3857 




EOR 


$FF 


;byte 2 


B95D 8564 


3858 




STA 


Z64 




B95F A565 


3859 




LDA 


Z65 




B961 49FF 


3860 




EOR 


$FF 


;and byte 1 


B963 8565 


3861 




STA 


Z65 




B965 A570 


3862 




LDA 


Z70 




B967 49FF 


3863 




EOR 


$FF 


;and guard bit 


B969 8570 


3864 




STA 


Z70 


;if guard bit 


B96B E670 


3865 




INC 


Z70 




B96D D00E 


3866 
3867 




BNE 


BB97D 


;then increment fraction 




3868 


; Increment fraction 






3869 


; 








B96F E665 


3870 


SB96F 


INC 


Z65 


; increment byte 4 


B971 DOOA 


3871 




BNE 


BB97D 


;if 


B973 E664 


3872 




INC 


Z64 


;byte 3 also 


B975 D006 


3873 




BNE 


BB97D 


;if 


B977 E663 


3874 




INC 


Z63 


;byte 2 also 


B979 D002 


3875 




BNE 


BB97D 


;If 


B97B E662 


3876 




INC 


Z62 


;byte 1 also 


B97D 60 


3877 
3878 


BB97D 


RTS 




;zero bere means overflow 


B97E A20F 


3879 


BB97E 


LDX 


$0F 


; point to OVERFLOW Error 


B980 4C37A4 


3880 




JMP 


JA437 


; print message 



86 





3882 


;preshlf t 




3883 




B983 A225 


3884 . 


JB983 LDX $25 


B985 B404 


3885 


BB985 LDY Z04.X 


B987 8470 


3886 


STY Z70 


B989 B403 


3887 


LDY Z03.X 


B98B 9404 


3888 


STY Z04.X 


B98D B402 


3889 


LDY Z02.X 


B98F 9403 


3S90 


STY Z03.X 


B991 B401 


3891 


LDY Z01.X 


B993 9402 


3892 


STY Z02.X 


B995 A468 


3893 


LDY Z68 


3997 9401 


3894 


STY Z01.X 


B999 6908 


3895 


SB999 ADC $08 


B99B 30L8 


3896 


BMI BB985 


B99D F0E6 


3897 


BEQ BB965 


B99F E908 


3898 


SBC $08 


B9A1 A8 


3899 


TAY 


B9A2 A570 


3900 


LDA Z70 


B9A4 BO 14 


3901 


BCS BB9BA 


E9A6 1601 


3902 


BB9A6 ASL Z01.X 


B9A8 9002 


3903 


BCC BB9AC 


B9AA F601 


3904 


INC Z01.X 


B9AC 7601 


3905 


BB9AC ROR Z01.X 


B9AE 7601 


3906 


ROR Z01.X 


B9B0 7602 


3907 


SB9B0 ROR Z02.X 


B9B2 7603 


3908 


ROR Z03.X 


B9B4 7604 


3S09 


ROR Z04.X 


B9B6 6A 


3910 


ROR A 


B9E7 C8 


3911 


1NY 


B9E8 DOEC 


3912 


BNE BB9A6 


39EA 18 


3913 


BB9BA CLC 


B9BB 60 


3914 


RTS 



; shift whole fraction 
; right one byte 



;hlgh order padding 

;add 8 to exponent 

;if still <= 

; shift another byte 

; compensate for correction 

; check guard bit 

;if exponent zero now, stop shifting 

; else 



; shift fraction right one bit 

;last bit into A 

; until # of shifts zero 
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B9BC 
B9C1 
B9C2 
B9C7 
B9CC 
B9D1 
B9D6 
B9DB 
B9E0 
B9E5 



B9EA 
B9EA 
B9ED 
B9EF 
B9F1 

B9F4 
B9F6 
B9F8 
B9F9 
B9FB 
B9FD 
B9FF 
BA01 
BA04 
BA06 
BA08 
BAOB 
BAOD 
BAOF 
BA12 
BA14 
BA16 
BA19 
BA1B 
BA1D 
BA20 
BA21 
BA24 
BA26 
BA28 



810000 

03 

7F5E56 

801 39B 

807638 

8238AA 

803504 

813504 

808000 

803172 



202BBC 
F002 
1003 
4C48B2 

A561 

E97F 

48 

A980 

8561 

A9D6 

A0B9 

2067B8 

A9DB 

A0B9 

200FBB 

A9BC 

A0B9 

2050B8 

A9C1 

A0B9 

2043E0 

A9E0 

A0B9 

2067B8 

68 

207EBD 

A9E5 

A0B9 

208CBA 



3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 



;1, also used as default FOR step 
TB9BC .BY $81, $00, $00, $00, $00 
;polynome table for LOG 
TB9C1 .BY $03 
;0. 434255942 

.BY $7F,$5E,$56,$CB,$79 
;0. 576584541 

.BY $80,$13,$9B,$0B,$64 
;0. 961800759 

.BY $80, $76, $38, $93, $16 
;2. 88539007 

.BY $82,$38,$AA,$3B,$20 
;0.5 * SQR(2) 

TB9D6 .BY $80, $35 ,$04,$F3,$34 
;SQR(2) 

TB9DB .BY $81 ,$35 ,$04,$F3 ,$34 
;-0.5 

TB9E0 .BY $80, $80, $00, $00, $00 
;L0G(2) 
TB9E5 .BY $80,$31,$72,$17,$F8 



; "LOG" command 

WB9EA = * 

SB9EA JSR SBC2B 
BEQ BB9F1 
BPL BB9F4 

BB9F1 JMP JB248 

BB9F4 LDA Z61 
SBC $7F 
PHA 

LDA $80 
STA Z61 
LDA <TB9D6 
LDY >TB9D6 
JSR SB867 
LDA <TB9DB 
LDY >TB9DB 
JSR SBBOF 
LDA <TB9BC 
LDY >TB9BC 
JSR SB850 
LDA <TB9C1 
LDY >TB9C1 
JSR XE043 
LDA <TB9E0 
LDY >TB9E0 
JSR SB867 
PLA 

JSR JBD7E 
LDA <TB9E5 
LDY >TB9E5 

SBA28 JSR SBA8C 



;get sign of flp accu into A 

;if > 0, OK 

;else ILLEGAL QUANTITY Error 

;get exponent 

;corrrect for excess of 128 

;and save result 

;set exponent 

;set AY to point to 0.5 * SQR(2) 
;add to flp accu 

;set AY to point to SQR(2) 
; divide AY by flp accu 

;set AY to point to 1 

; subtract flp accu from AY 

;set AY to polynome table 
; compute odd polynome 

;set AY to point to -0.5 

;add to flp accu 

; restore exponent 

;add exponent to flp accu 

;set AY to L0G(2) 
;multiply AY times flp accu 
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3971 


;"*" operator 






3972 










BA2B D003 


3973 1 


MBA2B 


BNE 


BBA30 


;lf flp accu = 0, return 


BA2D 4C8BBA 


3974 
3975 




JMP 


JBA8B 




BA30 20B7BA 


3976 : 


BBA30 


JSR 


SBAB7 


;add exponents 


BA33 A900 


3977 




LDA 


$00 




BA35 8526 


3978 




STA 


Z26 


;set flp accu extension to zero 


BA37 8527 


3979 




STA 


Z27 




BA39 8528 


3980 




STA 


Z28 




BA3B 8529 


3981 




STA 


Z29 




BA3D A570 


3982 




LDA 


Z70 


;get guard bit 


BA3F 2059BA 


3983 




JSR 


SBA59 


;* second flp accu added to flp 


BA42 A565 


3984 




LDA 


Z65 




BA44 2059BA 


3985 




JSR 


SBA59 


;same for byte 4 


BA47 A564 


3986 




LDA 


Z64 




BA49 2059BA 


3987 




JSR 


SBA59 


;same for byte 3 


BA4C A563 


3988 




LDA 


Z63 




BA4E 2059BA 


3989 




JSR 


SBA59 


;and byte 2 


BA51 A562 


3990 




LDA 


Z62 




BA53 205EBA 


3991 




JSR 


SBA5E 


;and byte 1 


BA56 4C8FBB 


3992 
3993 




JMP 


JBB8F 


; post-normalize and return 




3994 


•add 


second flp 


accu * A to flp extension 




3995 


; 








BA59 D003 


3996 


SBA59 


BNE 


SBA5E 


;if a zero 


BA5B 4C83B9 


3997 
3998 


» 


JMP 


JB983 


; perform pre-shift 


BA5E 4A 


3999 


SBA5E 


LSR 


A 


; shift LSB of A into carry 


BA5F 0980 


4000 




ORA 


$80 


;set to $80 only after 8 shifts 


BA61 A8 


4001 


BBA61 


TAY 




;save A 


BA62 9019 


4002 




BCC 


BBA7D 


;if low bit set 


BA64 18 


4003 




CLC 






BA65 A529 


4004 




LDA 


Z29 




BA67 656D 


4005 




ADC 


Z6D 


;add second flp fraction 


BA69 8529 


4006 




STA 


Z29 


;to flp extension 


BA6B A528 


4007 




LDA 


Z28 




BA6D 656C 


4008 




ADC 


Z6C 




BA6F 8528 


4009 




STA 


Z28 


;also byte 2 


BA71 A527 


4010 




LDA 


Z27 




BA73 656B 


4011 




ADC 


Z6B 




BA75 8527 


4012 




STA 


Z27 


;and byte 3 


BA77 A526 


4013 




LDA 


Z26 




BA79 656A 


4014 




ADC 


Z6A 




BA7B 8526 


4015 




STA 


Z26 


;and byte 4 


BA7D 6626 


4016 


BBA7B 


i ROR 


Z26 


; shift flp extension right 1 bi 


BA7F 6627 


4017 




ROR 


Z27 




BA81 6628 


4018 




ROR 


Z28 




BA83 6629 


4019 




ROR 


Z29 




BA85 6670 


4020 




ROR 


Z70 


; including guard bit 


BA87 98 


4021 




TYA 




;restore A 


BA88 4 A 


4022 




LSR 


A 


;get low bit of A into carry 


BA89 D0D6 


4023 




BNE 


BBA61 


; repeat until zero 


BA8B 60 


4024 


JBA8B RTS 
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BA8C 
BA8E 
BA90 
BA92 
BA94 
BA96 
BA97 
BA99 
BA9B 
BA9C 
BA9E 
BAAO 
BAA1 
BAA3 
BAA5 
BAA7 
BAA9 
BAAB 
BAAD 
BAAF 
BABO 
BAB2 
BAB4 
BAB6 



8522 

8423 

A004 

B122 

856D 

88 

B122 

856C 

88 

B122 

856B 

88 

B122 

856E 

4566 

856F 

A56E 

0980 

856A 

88 

B122 

8569 

A561 

60 



4026 

4027 ; 

4028 SBA8C 
4029 

4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 



move flp # Indexed by AY into second flp accu 



STA Z22 

STY Z23 

LDY $04 

LDA (Z22),Y 

STA Z6D 

DEY 

LDA (Z22),Y 

STA Z6C 

DEY 

LDA (Z22),Y 

STA Z6B 

DEY 

LDA (Z22),Y 

STA Z6E 

EOR Z66 

STA Z6F 

LDA Z6E 

ORA $80 

STA Z6A 

DEY 

LDA (Z22),Y 

STA Z69 

LDA Z61 

RTS 



;save AY index 

;move byte 4 of fraction 

;byte 3 
;byte 2 



;and byte 1 

;into sign 

;also Exclusive OR with sign of flp accu 



;byte 1 always has bit 7 set 



;save exponent 

;show exponent of flp accu in A, Z and N 
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BAB7 A569 
BAB9 F01F 
BABB 18 
BABC 6561 
BABE 9004 
BACO 30 1L 
BAC2 18 
BAC3 2C 
BAC4 1014 
BAC6 6980 
BAC8 8561 
BACA D003 
BACC 4CFBB8 4067 
4068 
BACF A56F 
BAD1 8566 
BAD3 60 



4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 



4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 



BAD4 A566 

BAD6 49FF 

BAD8 3005 

BADA 68 

BADE 68 

BADC 4CF7B8 4078 

4079 

BADF 4C7EB9 4080 

4081 

4082 

4083 

BAE2 200CBC 4084 

BAE5 AA 4085 

BAE6 F010 4086 

BAE8 18 

BAE9 6902 

BAEB B0F2 

BAED A200 

BAEF 866F 

BAF1 207 7E8 4092 

EAF4 E661 4093 

BAF6 F0E7 4094 

BAF8 60 4095 

4096 

4097 

BAF9 8420C0 4098 

4099 

.4100 

4101 

BAFE 200CBC 4102 

BB01 A9F9 4103 

BB03 AOBA 4104 

BB05 A200 4105 

BB07 866F 4106 

BB09 20A2BB 4107 

BBOC 4C12BE 4108 



; add exponents 

SBAB7 LDA Z69 

BEQ BBADA 
CLC 

ADC Z61 
BCC BBAC4 
BMI BBADF 
CLC 
.BY $2C 

BBAC4 BPL BBADA 
ADC $80 
STA Z61 
BNE BBACF 
JMP JB8FB 

BBACF LDA Z6F 
STA Z66 
RTS 

» 

LDA Z66 
EOR $FF 
BMI BBADF 
BBADA PLA 
PLA 
JMP JB8F7 



;get exp. of 2nd flp accu (left operand) 
;if zero, set zero result 

;add to exponent of flp accu 

;lf carry set 

;and negative, true overflow 

;else correct for excess 128 

;skip next Instructlion 

;if C = 1 and positive, real underflow 

;else correct for excess 128 

; store resulting exponent 

;if zero 

; set sign positive 

;Exclusive OR of signs 
; is sign of result 



;get sign of flp accu 

;if positive, overflow 

; remove own return address 

;and set result zero 



BBADF JMP BB97E ;OVERFLOW Error 
;multiply flp accu by 10 



4087 
4088 
4089 
4090 
4091 



SBAE2 JSR SBCOC 
TAX 

BEQ BBAF8 
CLC 

ADC $02 
BCS BBADF 

SBAED LDX $00 
STX Z6F 
JSR SB877 
INC Z61 
BEQ BBADF 

BBAF8 RTS 



;move rounded flp into second flp accu 

;get exponent 

;if flp accu is zero, return 

; exponent of second flp + 2 (# * 4) 
;exit if overflow 

;set signs same 

;add second flp accu to flp (# * 5) 

;add 1 to exponent (f * 10) 

;exit if overflow 



;flp constant 10 for division 
TBAF9 .BY $84, $20, $00, $00, $00 



; divide flp accu by 10 
» 

;move rounded flp accu to 2nd flp accu 

;set AY to flp value 10 



SBAFE JSR SBCOC 
LDA <TBAF9 
LDY >TBAF9 
LDX $00 
STX Z6F 
JSR SBBA2 
JMP JBB12 



;set signs the same 
iload flp accu from AY 
; perform division 
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BBOF 208CBA 



BB12 
BB12 
BB14 
BB17 
BB19 
BB1A 
BB1C 
BB1E 
BB21 
BB23 
BB25 
BB27 
BB29 
BB2B 
BB2D 
BB2F 
BB31 
BB33 
BB35 
BB37 
BB39 
BB3B 
BB3D 
BB3F 
BB40 
BB41 
BB43 
BB44 
BB46 
BB48 
BB4A 
BB4C 
BB4D 
BB4F 
BB51 
BB53 
BB55 
BB57 
BB59 
BB5B 
BB5D 
BB5E 
BB60 
BB62 
BB64 
BB66 
BB68 
BB6A 
BB6C 
BB6E 
BB70 
BB72 
BB74 
BB76 



F076 

201BBC 

A900 

38 

E561 

8561 

20B7BA 

E661 

FOBA 

A2FC 

A901 

A46A 

C462 

DOIO 

A46B 

C463 

DOOA 

A46C 

C464 

D004 

A46D 

C465 

08 

2A 

9009 

E8 

9529 

F032 

1034 

A901 

28 

BOOE 

066D 

266C 

266B 

266A 

B0E6 

30CE 

10E2 

A8 

A56D 

E565 

856D 

A56C 

E564 

856C 

A56B 

E563 

856B 

A56A 

E562 

856A 
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4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
415S 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 



; divide number (indexed by AY) by flp accu 

» 

SBBOF JSR SBA8C ; fetch # indexedby AY into 2nd flp accu 



"/" operator 

WBB12 - * 

JBB12 BEQ BBB8A 
JSR SBC1B 
LDA $00 
SEC 

SBC Z61 
STA Z61 
JSR SBAB7 
INC Z61 
BEQ BBADF 
LDX $FC 
LDA $01 

BBB29 LDY Z6A 
CPY Z62 
BNE BBB3F 
LDY Z6B 
CPY Z63 
BNE BBB3F 
LDY Z6C 
CPY Z64 
BNE BBB3F 
LDY Z6D 
CPY Z65 

BBB3F PHP 

ROL A 
BCC BBB4C 
INX 

STA Z29.X 
BEQ BBB7A 
BPL BBB7E 
LDA $01 
PLP 

BCS BBB5D 
ASL Z6D 
ROL Z6C 
ROL Z6B 
ROL Z6A 
BCS BBB3F 
BMI BBB29 
BPL BBB3F 

BBB5D TAY 

LDA Z6D 
SBC Z65 
STA Z6D 
LDA Z6C 
SBC Z64 
STA Z6C 
LDA Z6B 
SBC Z63 
STA Z6B 
LDA Z6A 
SBC Z62 
STA Z6A 
TYA 



BBB4C 
JBB4F 



;if flp accu = 0, DIVISION BY ZERO Error 
; round flp accu according to guard bit 



; compute 2's complement of exponent 

;add exponents 

; correct exponent 

;exit if overflow 

;set initial index into flp extension 

; assure 8 loops per byte 

; compare fractions, byte 1 



;byte 2 
;byte 3 



;byte 4 

; save result of comparison 
; shift result into A 
;after 8 shifts 

;save result into flp extension 
; after byte 4, do guard byte 
; after guard byte, exit 
; again, 8 iterations per byte 
; restore result of comparison 
;if dividend larger, subtract 
; shift dividend left 1 bit 



1 comparison result will be 1 
and MSB = 1, compare 



;if C 

;if C 

;if C = and MSB = 

;if dividend larger 



comp. result * 



; subtract divisor 
;byte 2 
;byte 3 
;byte 4 
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BB77 4C4FBB 

BB7A A940 
BB7C DOCE 
BB7E OA 
BB7F OA 
BB80 OA 
BB81 OA 
BB82 OA 
BB83 OA 
BB84 8570 
BB86 28 
BB87 4C8FBB 

BB8A A214 
BB8C 4C37A4 



BB8F 
BB91 
BB93 
BB95 
BB97 
BB99 
BB9B 
BB9D 
BB9F 



A526 
8562 
A527 
8563 
A528 
8564 
A529 
8565 
4CD7B8 



BBA2 8522 
BBA4 8423 
BBA6 A004 
BBA8 B122 
BBAA 8565 
BBAC 88 
BBAD B122 
BBAF 8564 
BBB1 88 
BBB2 B122 
BBB4 8563 
BBB6 88 
BBB7 B122 
BBB9 8566 
BBBB 0980 
BBBD 8562 
BBBF 88 
BBCO B122 
BBC2 8561 
BBC4 8470 
BBC6 60 



4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 



JMP JBB4F 

BBB7A LDA $40 

BNE BBB4C 
BBB7E ASL A 

ASL 

ASL 

ASL 

ASL 

ASL 



A 

A 

A 

A 

A 

STA Z70 
PLP 
JMP JBB8F 

BBB8A LDX $14 

JMP JA437 

> 

JBB8F LDA Z26 
STA Z62 
LDA Z27 
STA Z63 
LDA Z28 
STA Z64 
LDA Z29 
STA Z65 
JMP BB8D7 



; repeat 

;two more Iterations for guard bit 

;after guard byte computation, 
: shift result left 6 bits 



;set new guard bit 

;remove result of last comparison 

;and save result 

; point to DIVISION BY ZERO Error 
; print error 

;move flp accu extension 
;into flp fraction 

;byte 2 

;byte 3 

;byte 4 

;do post-normalization 



;load flp accu with constant indexed by AY 



SBBA2 STA 
STY 
LDY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
ORA 
STA 
DEY 
LDA 
STA 
STY 
RTS 



Z22 

Z23 

$04 

(Z22),Y 

Z65 

(Z22),Y 
Z64 

(Z22),Y 
Z63 

(Z22),Y 
Z66 
$80 
Z62 

(Z22),Y 

Z61 

Z70 



;save AY 

;load byte + 4 
;into flp accu + 4 

;byte + 3 



;byte + 2 



;byte + 1 
;into sign byte 
;and with bit 7 set 
;into flp accu + 1 

;byte + 

;into exponent of flp accu 

; clear guard bit 
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BBC7 A25C 
BBC9 2C 



BBCA A257 
BBCC AOOO 
BBCE F004 



BBDO A649 
BBD2 A44A 



BBD4 
BBD7 
BBD9 
BBDB 
BBDD 
BBDF 
BBE1 
BBE2 
BBE4 
BBE6 
BBE7 
BBE9 
BBEB 
BBEC 
BBEE 
BBFO 
BBF2 
BBF4 
BBF5 
BBF7 
BBF9 
BBFB 



201BBC 

8622 

8423 

A004 

A565 

9122 

88 

A564 

9122 

88 

A563 

9122 

88 

A566 

09 7F 

2562 

9122 

88 

A561 

9122 

8470 

60 



4221 ; store flp accu at Z5C-Z60 

4222 ; 

4223 LDX <Z5C jinitialize low byte of pointer 

4224 .BY $2C ;skip next instruction 

4225 ; 

4226 ;store flp accu at Z57-Z5B 

4227 ; 

4228 LDX <Z57 ;initial}st 3<w byte of pointer 

4229 LDY >Z57 ;initialize high byte of pointer 

4230 BEQ SBBD4 ;JMP 

4231 ; 

4232 ;store flp accu into area indexed by Z49/Z4A 

4233 ; 

4234 JBBDO LDX Z49 ;set area pointer in XY 

4235 LDY Z4A 

4236 ; 

4237 ; store flp accu in area indexed by XY 

4238 ; 
; round flp accu 
; store XY in temporary pointer 



BBFC A56E 
BBFE 8566 
BCOO A205 
BC02 B568 
BC04 9560 
BC06 CA 
BC07 D0F9 
BC09 8670 
BCOB 60 



4239 SBBD4 JSR SBC1B 
STX Z22 
STY Z23 
LDY $04 
LDA Z65 
STA (Z22),Y 
DEY 

LDA Z64 
STA (Z22),Y 
DEY 

LDA Z63 
STA (Z22),Y 
DEY 

LDA Z66 
ORA $7F 
AND Z62 
STA (Z22),Y 
DEY 

LDA Z61 
STA (Z22),Y 
STY Z70 
RTS 



4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 

4261 ; 

4262 ;move second flp accu into first flp accu 

4263 ; 

4264 SBBFC LDA Z6E 

4265 SBBFE STA Z66 

4266 LDX $05 

4267 BBC02 LDA Z68.X 

4268 STA Z60.X 

4269 DEX 

4270 BNE BBC02 

4271 STX Z70 

4272 RTS 



;move byte 4 of fraction 

;byte 3 

;byte 2 

; combine sign 

;and byte 1 

; into byte 1 of area 

;move exponent 

; clear guard bit 



;move sign 

;loop counter 
;move 5 bytes 



;set product of signs to "+" 
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4274 


;move rounded flp accu into second flp accu 




4275 


; 






BCOC 201BBC 


4276 


SBCOC JSR 


SBC1B 


; round flp accu 


BCOF A206 


4277 


LDX 


$06 


;set It bytes to move 


BC11 B560 


4278 


BBC11 LDA 


Z60.X 


;move 6 bytes 


BC13 9568 


4279 


STA 


Z68.X 




BC15 CA 


4280 


DEX 






BC16 D0F9 


4281 


BNE 


BBC11 




BC18 8670 


4282 


STX 


Z70 


; store zero into guard bit 


BC1A 60 


4283 
4284 


BBC1A RTS 








4285 


; round flp accu according to guard bit 




4286 


» 






BC1B A561 


4287 


SBC1B LDA 


Z61 


;if flp accu - 


BC1D FOFB 


4288 


BEQ 


BBC1A 


; leave it at 


BC1F 0670 


4289 


ASL 


Z70 


;if guard bit not set 


BC21 90F7 


4290 


BCC 


BBC1A 


; status quo 


BC23 206FB9 


4291 


SBC23 JSR 


SB96F 


; increment fraction 


BC26 D0F2 


4292 


BNE 


BBC1A 


;if no overflow, leave it 


BC28 4C38B9 


4293 
4294 


JMP 


JB938 


;else shift fraction right 1 bit 




4295 


;get sign 


of flp accu in A 




4296 


; 






BC2B A561 


4297 


SBC2B LDA 


Z61 


;if exponent zero 


BC2D F009 


4298 


BEQ 


BBC38 


;sign - 


BC2F A566 


4299 


BBC2F LDA 


Z66 


;move sign bit 


BC31 2 A 


4300 


JBC31 ROL 


A 


;into C bit 


BC32 A9FF 


4301 


LDA 


$FF 


;if C - 1, sign = FF 


BC34 B002 


4302 


BCS 


BBC38 




BC36 A901 


4303 


LDA 


$01 


;if C = 0, sign = 01 


BC38 60 


4304 
4305 


BBC38 RTS 








4306 


;"SGN" command 






4307 


j 






BC39 202BBC 


4308 
4309 


WBC39 JSR 


SBC2B 


;get SGN of flp accu into A 




4310 


;move signed number 


from A into flp accu 




4311 


; 






BC3C 8562 


4312 


JBC3C STA 


Z62 


; store t in most significant byte 


BC3E A900 


4313 


LDA $00 




BC40 8563 


4314 


STA 


Z63 


;and into byte 2 


BC42 A288 


4315 


LDX 


$88 


;load exponent 


BC44 A562 


4316 


JBC44 LDA 


Z62 




BC46 49FF 


4317 


EOR 


$FF 


; complement sign 


BC48 2A 


4318 


ROL 


A 


;and move into C flag 


BC49 A900 


4319 


SBC49 LDA 


$00 




BC4B 8565 


4320 


STA 


Z65 


; clear byte 3 


BC4D 8564 


4321 


STA 


Z64 


;and byte 4 


BC4F 8661 


4322 


JBC4F STX 


Z61 


; store exponent 


BC51 8570 


4323 


STA 


Z70 


;move sign to guard bit 


BC53 8566 


4324 


STA 


Z66 


;and to sign bit 


BC55 4CD2B8 


4325 


JMP 


JB8D2 


;negate flp accu if borrow and post-shift 
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4327 


;"ABS' 


' com 


mand 




4328 


j 






BC58 4666 


4329 


WBC58 


LSR 


Z66 


BC5A 60 


4330 
4331 




RTS 






4332 


; compare flp accu 




4333 


; 






BC5B 8524 


4334 


SBC5B 


STA 


Z24 


BC5D 8425 


4335 


SBC5D 


STY 


Z25 


BC5F A000 


4336 




LDY 


$00 


BC61 B124 


4337 




LDA 


(Z24),Y 


BC63 C8 


4338 




INY 




BC64 AA 


4339 




TAX 




BC65 F0C4 


4340 




BEQ 


SBC2B 


BC67 B124 


4341 




LDA 


(Z24),Y 


BC69 4566 


4342 




EOR 


Z66 


BC6B 30C2 


4343 




BMI 


BBC2F 


BC6D E461 


4344 




CPX 


Z61 


BC6F DO 21 


4345 




BNE 


BBC92 


BC71 B124 


4346 




LDA 


(Z24),Y 


BC73 0980 


4347 




ORA 


$80 


BC75 C562 


4348 




CMP 


Z62 


BC77 D019 


4349 




BNE 


BBC92 


BC79 C8 


4350 




INY 




BC7A B124 


4351 




LDA 


(Z24),Y 


BC7C C563 


4352 




CMP 


Z63 


BC7E D012 


4353 




BNE 


BBC92 


BC80 C8 


4354 




INY 




BC81 B124 


4355 




LDA 


(Z24),Y 


BC83 C564 


4356 




CMP 


Z64 


BC85 DOOB 


4357 




BNE 


BBC92 


BC87 C8 


4358 




INY 




BC88 A97F 


4359 




LDA 


$7F 


BC8A C570 


4360 




CMP 


Z70 


BC8C B124 


4361 




LDA 


(Z24),Y 


BC8E E565 


4362 




SBC 


Z65 


BC90 F028 


4363 




BEQ 


BBCBA 


BC92 A566 


4364 


BBC92 


LDA 


Z66 


BC94 9002 


4365 




BCC 


BBC98 


BC96 49FF 


4366 




EOR 


$FF 


BC98 4C31BC 


: 4367 


BBC98 


JMP 


JBC31 



;set sign of flp accu positive 

to flp # indexed by AY 
;save index to variable 

;get exponent of variable 



;if zero, get sign of flp accu 

;get byte 1 of fraction 

;if different from sign of flp accu 

;get sign of flp accu 

; compare exponents 

;if not equal, set sign according to C 

;get byte 1 

; compare to byte 1 of flp accu 

;if not equal, set sign according to C 

;get byte 2 

; compare to byte 2 of flp accu 

;if not equal, set sign according to C 

;get byte 3 

; compare to byte 3 of flp accu 

;if not equal, set sign accoring to C 

;set borrow 

;according to guard bit 

; compute difference between bytes 4 
;if equal, return with A - 
;else compute sign according to C 



;and set A accordingly 
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4369 


; convert flp act 




4370 


; 






BC9B A561 


4371 


SBC9B 


LDA 


Z61 


BC9D F04A 


4372 




BEQ 


BBCE9 


BC9F 38 


4373 




SEC 




BCAO E9AO 


4374 




SBC 


$A0 


BCA2 2466 


4375 




BIT 


Z66 


BCA4 1009 


4376 




BPL 


BBCAF 


BCA6 AA 


4377 




TAX 




BCA7 A9FF 


4378 




LDA 


$FF 


BCA9 8568 


4379 




STA 


Z68 


BCAB 204DB9 


4380 




JSR SB94D 


BCAE 8A 


4381 




TXA 




BCAF A261 


4382 


BBCAF 


LDX 


$61 


BCB1 C9F9 


4383 




CMP 


$F9 


BCB3 1006 


4384 




BPL 


BBCBB 


BCB5 2099B9 


4385 




JSR 


SB999 


BCB8 8468 


4386 




STY 


Z68 


BCBA 60 


4387 
4388 


BBCBA 


RTS 




BCBB A8 


4389 


BBCBB 


TAY 




BCBC A566 


4390 




LDA 


Z66 


BCBE 2980 


4391 




AND 


$80 


BCCO 4662 


4392 




LSR 


Z62 


BCC2 0562 


4393 




ORA 


Z62 


BCC4 8562 


4394 




STA 


Z62 


BCC6 20BOB9 


4395 




JSR 


SB9B0 


BCC9 8468 


4396 




STY 


Z68 


BCCB 60 


4397 
4398 


J 


RTS 






4399 


;"INT 


command 




4400 


j 






BCCC 


4401 


WBCCC 


= 


* 


BCCC A561 


4402 


SBCCC 


LDA 


Z61 


BCCE C9A0 


4403 




CMP 


$A0 


BCDO B020 


4404 




BCS 


BBCF2 


BCD2 209BBC 


4405 




JSR 


SBC9B 


BCD5 8470 


4406 




STY 


Z70 


BCD7 A566 


4407 




LDA 


Z66 


BCD9 8466 


4408 




STY 


Z66 


BCDB 4980 


4409 




EOR 


$80 


BCDD 2A 


4410 




ROL 


A 


BCDE A9A0 


4411 




LDA 


$A0 


BCEO 8561 


4412 




STA 


Z61 


BCE2 A565 


4413 




LDA 


Z65 


BCE4 8507 


4414 




STA 


Z07 


BCE6 4CD2B8 


4415 
4416 




JMP 


JB8D2 




4417 


; clear flp accu 




4418 








BCE9 8562 


4419 


BBCE9 


STA 


Z62 


BCEB 8563 


4420 




STA 


Z63 


BCED 8564 


4421 




STA 


Z64 


BCEF 8565 


4422 




STA 


Z65 


BCF1 A8 


4423 




TAY 




BCF2 60 


4424 


BBCF2 


RTS 





to a 4 byte signed integer 

;get exponent 

;if zero fill fraction with zeros 

; calculate exponent - 32 
;if result negative 

; save A 

;set padding to ones 

jnegate flp fraction 
;restore A 

;if < 8 places to be shifted 

;do shift 

;and reset padding 



;if > = 8 places to be shifted 



; set parameters 

;and MSB 

;to do byte shifts first 

;and then reset padding 



;get exponent 

;if > = 32 

; then no conversion necessary 

; convert flp accu to 4 byte integer 

; clear guard bit 

;get sign 

;set sign positive 

; invert sign 

;and move into carry 

;set exponent to 32 
;move least significant bit 
;into even/ odd switch 
;negate flp accu if borrow 



;move A into every byte of fraction 



97 



BCF3 
BCF5 
BCF7 
BCF9 
BCFA 
BCFC 
BCFE 
BDOO 
BD02 
BD04 
BD06 
BD08 
BDOA 
BDOD 
BDOF 
BD11 
BD13 
BD15 
BD17 
BD1A 
BD1C 
BD1E 
BD20 
BD22 
BD24 
BD26 
BD28 
BD2A 
BD2C 
BD2E 
BD30 
BD33 
BD35 
BD37 
BD39 
BD3B 
BD3C 
BD3E 

BD41 
BD43 
BD45 
BD47 
BD49 
BD4A 
BD4C 
BD4E 
BD50 
BD52 
BD55 
BD57 
BD59 
BD5B 
BD5E 
BD60 
BD62 
BD64 
BD66 



AOOO 

A20A 

945D 

CA 

10FB 

900F 

C92D 

D004 

8667 

F0O4 

C92B 

D005 

207300 

905B 

C92E 

F02E 

C945 

D030 

207300 

9017 

C9AB 

FOOE 

C92D 

FOOA 

C9AA 

F008 

C92B 

F004 

D007 

6660 

207300 

905C 

2460 

100E 

A900 

38 

E55E 

4C49BD 

665F 

245F 

50C3 

A55E 

38 

E55D 

855E 

F012 

1009 

20FEBA 

E65E 

D0F9 

F007 

20E2BA 

C65E 

D0F9 

A567 

3001 

60 



4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 



; convert string to flp I In flp accu 



SBCF3 
BBCF7 



BBD06 

BBDOA 
BBDOD 
BBDOF 



LDY $00 
LDX $0A 
STY Z5D.X 
DEX 

BPL BBCF7 
BCC BBDOD 
CMP '- 
BNE BBD06 
SIX Z67 
BEQ BBDOA 
CMP '+ 
BNE BBDOF 
JSR X0073 
BCC BBD6A 
CMP '. 
BEQ BBD41 
CMP 'E 
BNE BBD47 
JSR X0073 
BCC BBD33 
CMP $AB 
BEQ BBD2E 
CMP '- 
BEQ BBD2E 
CMP $AA 
BEQ BBD30 
CMP '+ 
BEQ BBD30 
BNE BBD35 
ROR Z60 
JSR X0073 
BCC BBD91 
BIT Z60 
BPL BBD47 
LDA $00 
SEC 

SBC Z5E 
JMP JBD49 



BBD41 ROR Z5F 
BIT Z5F 
BVC BBDOA 
LDA Z5E 
SEC 
SBC Z5D 
STA Z5E 
BEQ BBD62 
BPL BBD5B 

BBD52 JSR SBAFE 
INC Z5E 
BNE BBD52 
BEQ BBD62 

BBD5B JSR SBAE2 
DEC Z5E 
BNE BBD5B 

BBD62 LDA Z67 

BMI BBD67 
RTS 



BBD2E 
BBD30 
BBD33 
BBD35 



BBD47 
JBD49 



;loop counter, 11 bytes to be cleared 
; clear flp accu and 5 more 



;lf first character not numeric 

; check for minus 

;if so, 

;set flag for negative t 

;check for positive number 

;if not, go try others 

;get next character 

;if numeric, gather number 

;if decimal point, 

;set flag 

;if exponent character 

;get next character 

;if numeric, gather exponent value 

;if code for "-" 

;or "-" Itself 

;set flag 

;if code for "+" 

;or "+" itself 

;skip 

;else combine fraction & exponent 

;set flag for negative exponent 

;get next character 

;if numeric, gather exponent value 

;at end of exponent 

;if sign of exponent negative 



;get two's complement of exponent 
; combine 



;set code for 



found 



;if already set, this is end of number 
;get exponent, base 10 

;minus t of digits after "." 

;save 

;if zero, no adjustment 

;if positive, multiply by 10 

;if negative, divide flp accu by 10 

; increment exponent, base 10 

;and repeat if not zero 

;if positive, multiply flp accu by 10 

; decrement exponent, base 10 

;and repeat if not zero 

;get sign of flp # 

;if positive, 

; return 



98 



BD67 4CB4BF 



BD6A 
BD6B 
BD6D 
BD6F 
BD71 
BD74 
BD75 
BD76 
BD78 
BD7B 



BD7E 
BD7F 
BD82 
BD83 
BD86 
BD88 
BD8A 
BD8C 
BD8E 



BD91 
BD93 
BD95 
BD97 
BD99 
BD9B 
BD9D 

BDAO 
BDA1 
BDA2 
BDA3 
BDA5 
BDA6 
BDA7 
BDA9 
BDAB 
BDAC 
BDAE 
BDBO 



48 

245F 

1002 

E65D 

20E2BA 

68 

38 

E930 

207EBD 

4C0ABD 



48 

200CBC 

68 

203CBC 

A56E 

4566 

856F 

A661 

4C6AB8 



A55E 
C90A 
9009 
A964 
2460 
3011 
4C7EB9 

OA 

OA 

18 

655E 

OA 

18 

AOOO 

717A 

38 

E930 

85 5E 

4C30BD 



4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 



BBD67 JMP JBFB4 

BBD6A PHA 

BIT Z5F 
BPL BBD71 
INC Z5D 

BBD71 JSR SBAE2 
PLA 
SEC 

SBC '0 
JSR JBD7E 
JMP BBDOA 



;else apply monadic "-" 

;save numeric digit 
;if "." found 

;increment # of digits after "." 
;multiply flp accu by 10 
;restore numeric digit 

; convert from ASCII to binary 

;add signed integer from A to flp accu 

;repeat for next character 



;add signed integer from A to flp accu 



JBD7E PHA 

JSR SBCOC 
PLA 

JSR JBC3C 
LDA Z6E 
EOR Z66 
STA Z6F 
LDX Z61 
JMP JB86A 



;save integer 

;move rounded flp accu to 2nd flp accu 

; restore integer 

;get signed # from A into flp accu 

; compute Exclusive OR of signs 

;let Z and N reflect exponent 
; apply diadic operator "+" 



;get exponent of number from a string 



BBD91 LDA Z5E 
CMP $0A 
BCC BBDAO 
LDA $64 
BIT Z60 
BMI BBDAE 
JMP BB97E 

BBDAO ASL A 

ASL A 

CLC 

ADC Z5E 

ASL A 

CLC 

LDY $00 

ADC (Z7A),Y 

SEC 

SBC '0 
BBDAE STA Z5E 

JMP BBD30 



;get exponent gathered so far 
;if => 10 

;and sign of exponent is positive 

;then overflow 
; print error 

; exponent * 2 
; exponent * 4 

; exponent * 5 
; exponent * 10 



;add current character 

; convert from ASCII to binary 

; save exponent 

;repeat for next character 



99 



BDB3 9B3EBC 
BDB8 9E6E6B 
BDBD 9E6E6B 



BDC2 A971 
BDC4 A0A3 
BDC6 20DABD 
BDC9 A53A 
BDCB A639 



BDCD 8562 
BDCF 8663 
BDD1 A290 
BDD3 38 
BDD4 2049BC 
BDD7 20DFBD 
BDDA 4C1EAB 



BDDD 
BDDF 
BDEl 
BDE3 
BDE5 
BDE7 
BDEA 
BDEC 
BDEE 
BDEF 
BDF1 
BDF3 
BDF5 

BDF8 
BDFA 
BDFC 
BDFE 
BEOO 
BE02 
BE04 
BE07 
BE09 
BEOB 
BEOD 
BEOF 
BE12 
BE14 
BE16 
BE18 
BE1A 



AOOl 

A920 

2466 

1002 

A92D 

99FF00 

8566 

8471 

C8 

A930 

A661 

D003 

4C04BF 

A900 

E080 

F002 

B009 

A9BD 

AOBD 

2028BA 

A9F7 

855D 

A9B8 

AOBD 

205BBC 

F01E 

1012 

A9B3 

AOBD 

205BBC 



4535 ; constants for flp to string conversion 

4536 ; 

4537 ;999999.9 

4538 TBDB3 .BY $9B,$3E,$BC,$1F,$FD 

4539 ;999999999 

4540 TBDB8 .BY $9E,$6E,$6B,$27 ,$FD 

4541 ; 1000000000 

4542 TBDBD .BY $9E,$6E,$6B,$28 ,$00 

4543 ; 

4544 ; print IN follwed by statement # 

4545 ; 

4546 SBDC2 LDA <TA371 ;set AY to IN message 

4547 LDY >TA371 

4548 JSR SBDDA 

4549 LDA Z3A 

4550 LDX Z39 

4551 ; 

4552 ; print # from AX 

4553 ; 

4554 SBDCD STA Z62 

4555 STX Z63 

4556 LDX $90 

4557 SEC 

4558 JSR SBC49 

4559 JSR SBDDF 

4560 SBDDA JMP SAB1E 

4561 ; 

4562 ; convert t in flp accu to string 

4563 ; 

4564 SBDDD LDY $01 

4565 SBDDF LDA $20 
BIT Z66 
BPL BBDE7 
LDA '- 



4566 
4567 
4568 
4569 BBDE7 



; print message 

;get current statement # into AX 



;move AX into flp accu 

;set exponent to 16 

;pad out flp accu 

;convert flp accu to string 

;and go print string 



; initial output index 

;set first character to a space 

;but if sign negative 



;set first character to "-" 
STA X0100-1.Y ; store sign into output area 
STA Z66 
STY Z71 
INY 

LDA '0 
LDX Z61 
BNE BBDF8 
JMP JBF04 



4570 
4571 
4572 
4573 
4574 
4575 
4576 

4577 ; 

4578 BBDF8 LDA $00 

4579 CPX $80 

4580 BEQ BBEOO 

4581 BCS BBE09 

4582 BBEOO LDA <TBDBD 

4583 LDY >TBDBD 

4584 JSR SBA28 

4585 LDA $F7 

4586 BBE09 STA Z5D 

4587 BBEOB LDA <TBDB8 

4588 LDY >TBDB8 

4589 JSR SBC5B 

4590 BEQ BBE32 

4591 BPL BBE28 

4592 BBE16 LDA <TBDB3 

4593 LDY >TBDB3 

4594 JSR SBC5B 



;set sign positive 
;save output index 

;assume 

;if exponent 

; output and end string 

; clear exponent, base 10 



;if exponent, base 2, = 

;or < 

;set AY to point to 1000000000 

;multiply by flp accu 

;set exponent base 10 to -9 

;save exponent base 10 

;set AY to index 999999999 

; compare flp accu to AY 

;if equal, no need to adjust exonent 

;if flp accu >, adjust accordingly 

;if flp accu <, 

;set AY to point to 999999.9 

;and compare flp accu to t indexed by AY 



100 



BE1D F002 


4595 




BEQ 


BBE21 


BE1F 100E 


4596 




BPL 


BBE2F 


BE21 20E2BA 


4597 


BBE21 


JSR 


SBAE2 


BE24 C65D 


4598 




DEC 


Z5D 


BE26 DOEE 


4599 




BNE 


BBE16 


BE28 20FEBA 


4600 


BBE28 


JSR 


SBAFE 


BE2B E65D 


4601 




INC 


Z5D 


BE2D DODC 


4602 




BNE 


BBEOB 


BE2F 2049B8 


4603 


BBE2F 


JSR 


SB849 


BE32 209BBC 


4604 


BBE32 


JSR 


SBC9B 


BE35 A201 


4605 




LDX 


$01 


BE37 A55D 


4606 




LDA 


Z5D 


BE39 18 


4607 




CLC 




BE3A 690A 


4608 




ADC 


$0A 


BE3C 3009 


4609 




BMI 


BBE47 


BE3E C90B 


4610 




CMP 


$0B 


BE40 B006 


4611 




BCS 


BBE48 


BE42 69FF 


4612 




ADC 


$FF 


BE44 AA 


4613 




TAX 




BE45 A902 


4614 




LDA 


$02 


BE47 38 


4615 


BBE47 


SEC 




BE48 E902 


4616 


BBE48 


SBC 


$02 


BE4A 855E 


4617 




STA 


Z5E 


BE4C 865D 


4618 




STX 


Z5D 


BE4E 8A 


4619 




TXA 




BE4F F002 


4620 




BEQ 


BBE53 


BE51 1013 


4621 




BPL 


BBE66 


BE53 A471 


4622 


BBE53 


LDY 


Z71 


BE55 A92E 


4623 




LDA 




BE57 C8 


4624 




INY 




BE58 99FF0O 


4625 




STA 


X0100-1.Y 


BE5B 8A 


4626 




TXA 




BE5C F006 


4627 




BEQ 


BBE64 


BE5E A930 


4628 




LDA 


'0 


BE60 C8 


4629 




INY 




BE61 99FF00 


4630 




STA 


X0100-1.Y 


BE64 8471 


4631 


BBE64 


STY 


Z71 


BE66 A000 


4632 


BBE66 


LDY 


$00 


BE68 A280 


4633 


SBE68 


LDX 


$80 


BE6A A565 


4634 


BBE6A LDA Z65 


BE6C 18 


4635 




CLC 




BE6D 7919BF 4636 




ADC 


TBF16+3.Y 


BE70 8565 


4637 




STA 


Z65 


BE 72 A564 


4638 




LDA 


Z64 


BE74 7918BF 


4639 




ADC 


TBF16+2.Y 


BE77 8564 


4640 




STA 


Z64 


BE79 A563 


4641 




LDA 


Z63 


BE7B 7917BF 


4642 




ADC 


TBF16+1.Y 


BE7E 8563 


4643 




STA 


Z63 


BE80 A562 


4644 




LDA 


Z62 


BE82 7916BF 


4645 




ADC 


TBF16.Y 


BE85 8562 


4646 




STA 


Z62 


BE87 E8 


4647 




INX 




BE88 B004 


4648 




BCS 


BBE8E 


BE8A 10DE 


4649 




BPL 


BBE6A 


BE8C 3002 


4650 




BMI 


BBE90 


BE8E 30DA 


4651 


BBE8E 


BMI 


BBE6A 


BE90 8A 


4652 


BBE90 


TXA 




BE91 9004 


4653 




BCC 


BBE97 


BE93 49FF 


4654 




EOR 


$FF 



if flp accu <, no more adjustment 

else multiply flp accu by 10 

decrement exponent base 10 

and repeat 

divide flp accu by 10 

increment exponent, base 10 

repeat 

do half rounding of flp accu 

convert flp accu to 4 byte integer 

set position of decimal point 

get exponent, base 10 

add 10 

if still < 0, do exponential notation 

if > 10 

do exponential notation 

else set new position of decimal point 
and set exponent base 10 accordingly 

correct exponent, base 10 

save exponent 

save position of decimal point 

if position of decimal point > 
no extra adjustment needed 
get output index 
set decimal point 

store it 

if position of decimal point < 

set a 

and store it 

save output index 

set initial table index 

initial table phase negative 

add table entry 

to fraction, byte 4 



;byte 3 

;byte 2 

;byte 1 

; increment digit 

;if no overflow and positive, repeat 

;if overflow and negative phase, repeat 
;if positive phase 

;get 10 - digit 
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BE95 690A 
BE97 692F 
BE99 C8 
BE9A C8 
BE9B C8 
BE9C C8 
BE9D 8447 
BE9F A471 
BEA1 C8 
BEA2 AA 
BEA3 297F 
BEA5 99FF00 
BEA8 C65D 
BEAA D006 
BEAC A92E 
BEAE C8 
BEAF 99FF00 
BEB2 8471 
BEB4 A447 
BEB6 8A 
BEB7 49FF 
BEB9 2980 
BEBB AA 
BEBC C024 
BEBE F004 
BECO C03C 
BEC2 D0A6 
BEC4 A471 
BEC6 B9FF00 
BEC9 88 
BECA C930 
BECC F0F8 
BECE C92E 
BEDO F001 
BED2 C8 
BED3 A92B 
BED5 A65E 
BED7 F02E 
BED9 1008 
BEDB A900 
BEDD 38 
BEDE E55E 
BEEO AA 
BEE1 A92D 
BEE3 990101 
BEE6 A945 
BEE8 990001 
BEEB 8A 
BEEC A22F 
BEEE 38 
BEEF E8 
BEFO E90A 
BEF2 BOFB 
BEF4 693A 
BEF6 990301 
BEF9 8A 
BEFA 990201 
BEFD A900 
BEFF 990401 
BF02 F008 



4655 

4656 BBE97 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 BBEB2 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 BBEC4 

4683 BBEC6 
4684 

4685 

4686 

4687 

4688 

4689 

4690 BBED3 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 BBEE3 

4700 

4701 

4702 

4703 

4704 

4705 BBEEF 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 



ADC $0A 

ADC $2F 

INY 

INY 

INY 

INY 

STY Z47 

LDY Z71 

INY 

TAX 

AND $7F 

STA X0100-1.Y 

DEC Z5D 

BNE BBEB2 

LDA 

INY 

STA X0100-1.Y 

STY Z71 

LDY Z47 

TXA 

EOR $FF 

AND $80 

TAX 

CPY $24 

BEQ BBEC4 

CPY $3C 

BNE BBE6A 

LDY Z71 

LDA X0100-1.Y 

DEY 

CMP '0 

BEQ BBEC6 

CMP '. 

BEQ BBED3 

INY 

LDA '+ 

LDX Z5E 

BEQ BBF07 

BPL BBEE3 

LDA $00 

SEC 

SBC Z5E 

TAX 

LDA '- 

STA X0101.Y 

LDA 'E 

STA X0100.Y 

TXA 

LDX $2F 

SEC 

INX 

SBC $0A 

BCS BBEEF 

ADC $3A 

STA X0103.Y 

TXA 

STA X0102.Y 

LDA $00 

STA X0104.Y 

BEQ BBFOC 



; convert to ASCII 



; point to next table entry 
;save table index 
;get output index 

;save digit 

; remove phase bit 

; store digit 

;decrement position of decimal point 

;if position reached 

;set decimal point 

;and store it at next output location 
;save output index 
; res tore table index 

; inverse phase bit 
;reset digit 

;if table index not at 9 (* 4) 

;and not at 15 (* 4) 

; repeat 

;if end of segment, restore output index 

;get last digit 

;if a "0" 

; remove and repeat 

;if decimal point 

jreraove, but do not repeat 

;set "+" 

;get exponent, base 10 

;if zero, go end string 

;if negative, 

; compute complement of exponent 

;and set "-" 

; store sign of exponent in output area 
;set sign for exponential notation 
;and store it 

;get ASCII base for first exponent digit 

; increment 

; subtract 10 from exponent 

;if not a borrow, repeat 

;convert second exponent digit to ASCII 

; store second digit 

; store first digit 

; store end of string 
;and exit 



102 



BF04 


99FFOO 4715 


BF07 


A900 4716 


BF09 


990001 4717 


BFOC 


A900 4718 


BFOE 


A001 4719 


BFIO 


60 4720 




4721 




4722 




4723 




4724 


BF11 


800000 4725 




4726 




4727 




4728 




4729 


BF16 


FA0A1F 4730 




4731 


BF1A 


009896 4732 




4733 


BF1E 


FFFOBD 4734 




4735 


BF22 


000186 4736 




4737 


BF26 


FFFFD8 4738 




4739 


BF2A 


000003 4740 




4741 


BF2E 


FFFFFF 4742 




4743 


BF32 


000000 4744 




4745 


BF36 


FFFFFF 4746 




4747 




4748 




4749 




4750 


BF3A 


FFDFOA 4751 




4752 


BF3E 


00034B 4753 




4754 


BF42 


FFFF73 4755 




4756 


BF46 


OOOOOE 4757 




4758 


BF4A 


FFFFFD 4759 




4760 


BF4E 


000000 4761 




4762 




4763 




4764 


BF52 


ECAAAA 4765 


BF5A 


AAAAAA 4766 


BF62 


AAAAAA 4767 


BF6A 


AAAAAA 4768 



JBF04 STA X0100-1.Y ; store A at current output position 
BBF07 LDA $00 

STA X0100.Y ;store end of string 
BBFOC LDA <X0100 

LDY >X0100 ;set AY to point to string text 

RIS 

constants for conversions 

0.5 for rounding, SQR and dummy variable 
TBF11 .BY $80, $00, $00, $00, $00 

divisors for decimal conversion 

-100000000 
TBF16 .BY $FA,$0A,$1F,$00 
+10000000 

.BY $00, $98, $96, $80 
-1000000 

.BY $FF,$F0,$BD,$C0 
+100000 

.BY $00,$01,$86,$A0 
-10000 

.BY $FF,$FF,$D8,$F0 
+1000 

.BY $00,$00,$03,$E8 
-100 

.BY $FF,$FF,$FF,$9C 
+10 

.BY $00,$00,$00,$0A 
-1 

.BY $FF,$FF,$FF,$FF 

divisors for time conversion 

-10 * 6 * 10 * 6 * 10 * 60 

.BY $FF,$DF,$0A,$80 
+6 * 10 * 6 * 10 * 60 

.BY $0O,$O3,$4B,$CO 
-10 * 6 * 10 * 60 

.BY $FF,$FF,$73,$60 
+6 * 10 * 60 

.BY $00,$00,$OE,$10 
-10 * 60 

.BY $FF,$FF,$FD,$A8 
+60 

.BY $00,$00,$00,$3C 

unused area follows 

.BY $EC,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA 



103 



BF71 200CBC 
BF74 A911 
BF76 AOBF 
BF78 20A2BB 



BF7B F070 
BF7D A569 
BF7F D003 
BF81 4CF9B8 



BF84 
BF86 
BF88 
BF8B 
BF8D 
BF8F 
BF92 
BF94 
BF96 
BF99 
BF9B 
BF9C 
BF9E 
BFA1 
BFA2 
BFA3 
BFA6 
BFA8 
BFAA 
BFAD 
BFBO 
BFB1 
BFB2 



A24E 

AOOO 

20D4BB 

A56E 

100F 

20CCBC 

A94E 

AOOO 

205BBC 

D003 

98 

A407 

20FEBB 

98 

48 

20EAB9 

A94E 

AOOO 

2028BA 

20EDBF 

68 

4A 

900A 



BFB4 

BFB4 A561 
BFB6 F0O6 
BFB8 A566 
BFBA 49FF 
BFBC 8566 
BFBE 60 



4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 



;"SQR" command 

WBF71 JSR SBCOC 
LDA <TBF11 
LDY >TBF11 
JSR SBBA2 



;move rounded flp accu into 2nd flp accu 

;let AY point to value 0.5 
;load flp accu from AY 



"EXPONENT" operation 



WBF7B BEQ BBFED 
LDA Z69 
BNE BBF84 
JMP JB8F9 



BBF84 LDX 
LDY 
JSR 
LDA 
BPL 
JSR 
LDA 
LDY 
JSR 
BNE 
TYA 
LDY 

BBF9E JSR 
TYA 
PHA 
JSR 
LDA 
LDY 
JSR 
JSR 
PLA 
LSR 
BCC 



<Z4E 

>Z4E 

SBBD4 

Z6E 

BBF9E 

SBCCC 

<Z4E 

>Z4E 

SBC5B 

BBF9E 

Z07 
SBBFE 



SB9EA 

<Z4E 

>Z4E 

SBA28 

BBFED 

A 
BBFBE 



'MINUS" operator 

WBFB4 = * 
JBFB4 LDA Z61 

BEQ BBFBE 
LDA Z66 
EOR $FF 
STA Z66 
BBFBE RTS 



;if right operand zero, do EXP(O) 
;if left operand zero 

;set result zero 



;set AY to Z4E ■ 

; store flp accu there 

;get sign of left operand 

;if negative 

; perform INT 

;set AY to Z4E again 

; compare AY with flp accu 

;if equal, right operand = integer 

;set positive 

;set sign change flag 

;move second flp accu into flp accu with 

;save sign change flag 
; perform LOG 

;set AY to Z4E 

;multiply AY by flp accu 

; perform EXP 

; restore sign change flag 

; shift into carry 

; return if not set, else do monadic "-" 



;if number = 
;so is result 

;else invert sign 
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BFBF 
BFC4 

BFC5 

BFCA 

BFCF 

BFD4 

BFD9 

BFDE 

BFE3 

BFE8 



8138AA 
07 

713458 

74167E 

772FEE 

7A1D84 

7C6359 

7E75FD 

803172 

810000 



BFED 
BFED 
BFEF 
BFF1 
BFF4 
BFF6 
BFF8 
BFFA 
BFFD 



A9BF 

AOBF 

2028BA 

A570 

6950 

9003 

2023BC 

4C00E0 



4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 



; floating point numbers for EXP 

;1/L0G(2) 

TBFBF .BY $81 ,$38 ,$AA,$3B,$29 

.BY $07 ;polynome table for EXP 
0.0000214987637 

.BY $71,$34,$58,$3E,$56 
0.000143523140 

.BY $74,$16,$7E,$B3 > $1B 
0.00134226348 

.BY $77,$2F,$EE,$E3,$85 
0.00961401701 

.BY $7A > $1D,$84,$1C,$2A 
0.0555051269 

.BY $7C,$63,$59,$58,$0A 
0.240226385 

.BY $7E,$75,$FD,$E7,$C6 
0.693147186 

.BY $80,$31,$72,$18,$10 
1.0 

.BY $81,$00,$00,$00,$00 

"EXP" command 



WBFED = * 

BBFED LDA <TBFBF 
LDY >TBFBF 
JSR SBA28 
LDA Z70 
ADC $50 
BCC BBFFD 
JSR SBC23 

BBFFD JMP XE000 



;let AY point to l/LOG(2) 
jmultiply AY times flp accu 

; according to guard byte + 80 

; round flp accu 

; continue in part 2 
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BA38F 


A38F 


503 






BA3A4 


A3A4 


489 






BA3B0 


A3 BO 


495 






BA3B7 


A3B7 


487 


498 




BA3DC 


A3DC 


535 






BA3E8 


A3E8 


547 






BA3EC 


A3EC 


541 


543 


553 


BA3F3 


A3F3 


530 






BA412 


A412 


574 






BA416 


A416 


583 






BA421 


A421 


589 






BA434 


A434 


573 


576 


594 


BA435 


A435 


563 


567 


595 597 2854 


BA456 


A456 


631 






BA474 


A474 


638 






BA480 


A480 


654 


716 


744 


BA49C 


A49C 


657 






BA4D7 


A4D7 


694 






BA4DF 


A4DF 


699 


705 


709 


BA4ED 


A4ED 


667 






BA508 


A508 


724 






BA522 


A522 


741 






BA53C 


A53C 


772 






BA544 


A544 


759 






BA55F 


A55F 


755 






BA562 


A562 


784 






BA576 


A576 


780 






BA582 


A582 


802 


847 




BA58E 


A58E 


798 






BA5A4 


A5A4 


811 






BA5AC 


A5AC 


815 






BA5B6 


A5B6 


829 






BA5B8 


A5B8 


863 






BA5C7 


A5C7 


865 






BA5C9 


A5C9 


800 


804 


809 813 817 850 


BA5DC 


A5DC 


841 






BA5DE 


A5DE 


843 






BA5E5 


A5E5 


856 






BA5EE 


A5EE 


807 






BA5F5 


A5F5 


831 






BA5F9 


A5F9 


861 






BA609 


A609 


838 






BA617 


A617 


903 


1298 




BA62E 


A62E 


890 






BA637 


A637 


892 






BA640 


A640 


884 






BA641 


A641 


889 


896 


897 909 980 983 


BA68D 


A68D 


927 


974 




BA6A4 


A6A4 


971 


972 




BA6BB 


A6BB 


978 






BA6C9 


A6C9 


988 


1033 




BA6E6 


A6E6 


1007 






BA6E8 


A6E8 


1009 






BA6EF 


A6EF 


1061 






BA6F3 


A6F3 


1040 


1042 


1044 


BA700 


A700 


1018 






BA714 


A714 


998 


1010 


1023 


BA717 


A717 


1025 






BA72C 


A72C 


1055 
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BA72F 


A72F 


1054 




BA737 


A737 


1051 


1063 


BA753 


A753 


1071 




BA79F 


A79F 


1111 




BA7BE 


A7BE 


1130 




BA7CE 


A7CE 


1139 




BA804 


A804 


1165 




BA807 


A807 


1135 




BA80B 


A80B 


1183 




BA80E 


A80E 


1167 




BA827 


A827 


1196 


1923 


BA82B 


A82B 


1163 




BA832 


A832 


1206 




BA849 


A849 


1216 




BA854 


A854 


1227 




BA862 


A862 


1236 




BA870 


A870 


1211 


1233 


BA87D 


A87D 


1254 




BA8BC 


A8BC 


1288 




BA8C0 


A8CO 


1293 


1295 


BA8D1 


A8D1 


1310 




BA8E3 


A8E3 


1299 




BA8E8 


A8E8 


1398 




BA8EB 


A8EB 


1316 




BA8FB 


A8FB 


1382 


1800 1912 


BA905 


A905 


1342 


1360 1362 


BA91L 


A911 


1366 




BA919 


A919 


1365 




BA937 


A937 


1373 




BA940 


A940 


1377 




BA948 


A948 


1387 




BA953 


A953 


1426 




BA957 


A957 


1396 


1406 


BA95F 


A95F 


1400 




BA96A 


A96A 


1420 




BA99F 


A99F 


1442 




BA9D6 


A9D6 


1465 




BA9D9 


A9D9 


1463 




BA9ED 


A9ED 


1513 




BAA07 


AA07 


1506 




BAA24 


AA24 


1494 




BAA27 


AA27 


1525 




BAA2C 


AA2C 


1488 




BAA3D 


AA3D 


1537 




BAA4B 


AA4B 


1536 


1541 1544 


BAA52 


AA52 


1545 


1548 


BAA90 


AA90 


1589 




BAA9A 


AA9A 


1617 




BAA9D 


AA9D 


1622 




BAAE5 


AAE5 


1640 


1698 


BAAE7 


AAE7 


1605 


1633 1692 


BAAE8 


AAE8 


1612 




BAAEE 


AAEE 


1656 




BAAF8 


AAF8 


1607 


1610 


BABOE 


ABOE 


1659 




BABOF 


ABOF 


1668 




BABIO 


ABIO 


1679 




BAB13 


AB13 


1614 


1671 


BAB19 


AB19 


1675 




BAB28 


AB28 


1697 


1699 
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BAB42 


AB42 


1704 


BAB57 


AB57 


1.718 


BAB5B 


AB5B 


1720 


BAB5F 


AB5F 


1666 


BAB62 


AB62 


1717 


BAB6B 


AB6B 


1727 


BAB92 


AB92 


1744 


BABB7 


ABB7 


1758 


BABD6 


ABD6 


1798 


BABEA 


ABEA 


1788 1791 


BAC03 


AC03 


1805 


BACOD 


ACOD 


1796 


BAC41 


AC41 


1834 


BAC4A 


AC4A 


1842 


BAC4D 


AC4D 


1839 


BAC51 


AC51 


1832 1917 


BAC65 


AC65 


1851 


BAC71 


AC71 


1856 


BAC72 


AC72 


1859 


BAC7D 


AC7D 


1868 


BAC89 


AC89 


1849 


BAC9D 


AC9D 


1879 1881 


BACB8 


ACB8 


1840 1916 


BACD1 


ACD1 


1900 


BACDF 


ACDF 


1893 


BACEA 


ACEA 


1922 


BACFB 


ACFB 


1927 1929 


BAD27 


AD27 


1946 


BAD32 


AD32 


1904 


BAD35 


AD35 


1951 


BAD75 


AD75 


1994 


BAD78 


AD78 


1977 


BAD96 


AD96 


2016 


BAD97 


AD97 


2012 


BAD99 


AD99 


2013 


BADA4 


ADA4 


2023 


BADD7 


ADD7 


2039 2041 


BADE8 


ADE8 


2058 


BADFO 


ADFO 


2087 


BADF9 


ADF9 


2090 


BAE07 


AE07 


2053 


BAE11 


AE11 


2082 


BAE19 


AE19 


2074 


BAE30 


AE30 


2047 


BAE58 


AE58 


2054 2056 


BAE5B 


AE5B 


2076 


BAE5D 


AE5D 


2068 


BAE64 


AE64 


2135 


BAE66 


AE66 


2077 2089 


BAE80 


AE80 


2133 


BAE8A 


AE8A 


2188 


BAE8F 


AE8F 


2184 


BAE92 


AE92 


2165 


BAE9A 


AE9A 


2169 


BAEAD 


AEAD 


2173 


BAEC6 


AEC6 


2194 


BAECC 


AECC 


2190 


BAEE3 


AEE3 


2200 


BAEEA 


AEEA 


2217 


BAEF1 


AEF1 


2221 2364 3008 
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BAFOD 


AFOD 


2186 


BAFOF 


AFOF 


2202 


BAF27 


AF27 


2256 


BAF5C 


AF5C 


2275 2277 2279 


BAF5D 


AF5D 


2271 


BAF6E 


AF6E 


2293 


BAF92 


AF92 


2306 


BAFAO 


AFAO 


2304 2308 2327 2329 


BAFD1 


AFD1 


2344 


BB02E 


B02E 


2406 


BB056 


B056 


2432 2434 


BB05B 


B05B 


2449 


BB066 


B066 


2442 


BB072 


B072 


2444 2446 2451 


BB07B 


B07B 


2457 


BB07E 


B07E 


2467 


BB09C 


B09C 


2501 


BB09F 


B09F 


2478 


BBOAF 


BOAF 


2485 


BBOBO 


BOBO 


2490 2492 


BBOBA 


BOBA 


2487 


BBOC4 


BOC4 


2494 


BBOD4 


B0D4 


2497 


BBODB 


BODB 


2499 


BBOE7 


BOE7 


2514 


BBOEF 


BOEF 


2540 


BBOF1 


BOF1 


2538 


BBOFB 


BOFB 


2524 


BB109 


B109 


2529 


BBUC 


B11C 


2548 


BB11D 


BUD 


2526 


BB123 


B123 


2569 


BB128 


B128 


2559 


BB138 


B138 


2577 


BB13B 


B13B 


2567 2571 


BB143 


B143 


2575 


BB159 


B159 


2588 


BB185 


B185 


2533 


BB18F 


B18F 


2622 


BB1AO 


B1AO 


2635 


BB1CC 


B1CC 


2658 


BB1CE 


BICE 


2664 


BB1DB 


B1DB 


2704 


BB21C 


B21C 


2737 


BB228 


B228 


2718 


BB237 


B237 


2725 


BB245 


B245 


2750 2853 


BB24A 


B24A 


2745 


BB24D 


B24D 


2728 


BB261 


B261 


2720 


BB274 


B274 


2762 


BB27D 


B27D 


2767 


BB286 


B286 


2796 


BB296 


B296 


2779 


BB2B9 


B2B9 


2803 


BB2C8 


B2C8 


2815 2818 


BB2CD 


B2CD 


2812 


BB2F2 


B2F2 


2870 


BB308 


B308 


2848 


BB30B 


B30B 


2798 2805 2911 2922 
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BB30E 


B30E 2847 




BB30F 


B30F 2852 




BB320 


B320 2860 




BB331 


B331 2874 




BB337 


B337 2877 




BB34B 


B34B 2830 2960 




BB35F 


B35F 2924 




BB378 


B378 2914 




BB384 


B384 2930 




BB3AE 


B3AE 3020 




BB418 


B418 3026 




BB449 


B449 3048 




BB497 


B497 3111 




BB4A4 


B4A4 3109 




BB4A8 


B4A8 3107 




BB4A9 


B4A9 3113 




BB4B5 


B4B5 3120 




BB4BF 


B4BF 3124 




BB4CA 


B4CA 3126 3382 3480 3508 




BB4D2 


B4D2 3184 




BB4D5 


B4D5 3137 




BB4F6 


B4F6 3189 




BB501 


B501 3167 




BB50B 


B50B 3171 




BB516 


B516 3170 3173 




BB544 


B544 3211 




BB54D 


B54D 3209 




BB559 


B559 3223 




BB561 


B561 3219 




BB566 


B566 3221 




BB56E 


B56E 3252 3254 




BB572 


B572 3268 




BB57D 


B57D 3231 3233 




BB5AE 


B5AE 3262 




BB5B0 


B5B0 3270 




BB5B8 


B5B8 3266 




BB5DC 


B5DC 3294 




BB5E6 


B5E6 3300 




BB5F6 


B5F6 3276 3279 3287 3295 3297 3299 


3302 


BB601 


B601 3315 3325 




BB65D 


B65D 3369 




BB690 


B690 3411 




BB699 


B699 3405 




BB6A2 


B6A2 3416 




BB6D5 


B6D5 3449 




BB6D6 


B6D6 3440 3442 3444 




BB6EB 


B6EB 3459 3461 




BB70C 


B70C 3487 




BB70D 


B70D 3535 




BB70E 


B70E 3538 3540 




BB725 


B725 3504 




BB748 


B748 3524 




BB798 


B798 3528 3579 3593 3642 3645 




BB7B5 


B7B5 3600 




BB7CD 


B7CD 3613 




BB83C 


B83C 3683 




BB840 


B840 3690 




BB848 


B848 3731 




BB862 


B862 3748 




BB86F 


B86F 3723 
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BB893 


B893 3735 




BB897 


B897 3744 




BB8A3 


B8A3 3714 


3734 


BB8AF 


B8AF 3760 




BB8D7 


B8D7 3778 


4195 


BB8DB 


B8DB 3796 




BB8FE 


B8FE 3754 




BB91D 


B91D 3828 




BB929 


B929 3784 




BB946 


B946 3835 




BB97D 


B97D 3866 


3871 3873 3875 


BB97E 


B97E 3837 


4080 4520 


BB985 


B985 3896 


3897 


BB9A6 


B9A6 3912 




BB9AC 


B9AC 3903 




BB9BA 


B9BA 3901 




BB9F1 


B9F1 3941 




BB9F4 


B9F4 3942 




BBA30 


BA30 3973 




BBA61 


BA61 4023 




BBA7D 


BA7D 4002 




BBAC4 


BAC4 4059 




BBACF 


BACF 4066 




BBADA 


BADA 4056 


4063 


BBADF 


BADF 4060 


4075 4089 4094 4125 


BBAF8 


BAF8 4086 




BBB29 


BB29 4154 




BBB3F 


BB3F 4130 


4133 4136 4153 4155 


BBB4C 


BB4C 4141 


4173 


BBB5D 


BB5D 4148 




BBB7A 


BB7A 4144 




BBB7E 


BB7E 4145 




BBB8A 


BB8A 4117 




BBC02 


BC02 4270 




BBC11 


BC11 4281 




BBC1A 


BC1A 4288 


4290 4292 


BBC2F 


BC2F 4343 




BBC38 


BC38 4298 


4302 


BBC92 


BC92 4345 


4349 4353 4357 


BBC98 


BC98 4365 




BBCAF 


BCAF 4376 




BBCBA 


BCBA 4363 




BBCBB 


BCBB 4384 




BBCE9 


BCE9 4372 




BBCF2 


BCF2 4404 




BBCF7 


BCF7 4432 




BBD06 


BD06 4435 




BBDOA 


BDOA 4437 


4469 4498 


BBDOD 


BDOD 4433 




BBDOF 


BDOF 4439 




BBD2E 


BD2E 4449 


4451 


BBD30 


BD30 4453 


4455 4533 


BBD33 


BD33 4447 




BBD35 


BD35 4456 




BBD41 


BD41 4443 




BBD47 


BD47 4445 


4461 


BBD52 


BD52 4478 




BBD5B 


BD5B 4475 


4482 


BBD62 


BD62 4474 


4479 


BBD67 


BD67 4484 
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BBD6A 


BD6A 4441 




BBD71 


BD71 4491 




BBD91 


BD91 4459 




BBDAO 


BDAO 4516 




BBDAE 


BDAE 4519 




BBDE7 


BDE7 4567 




BBDF8 


BDF8 4575 




BBEOO 


BEOO 4580 




BBE09 


BE09 4581 




BBEOB 


BEOB 4602 




BBE16 


BE16 4599 




BBE21 


BE21 4595 




BBE28 


BE28 4591 




BBE2F 


BE2F 4596 




BBE32 


BE32 4590 




BBE47 


BE47 4609 




BBE48 


BE48 4611 




BBE53 


BE53 4620 




BBE64 


BE64 4627 




BBE66 


BE66 4621 




BBE6A 


BE6A 4649 


4651 4681 


BBE8E 


BE8E 4648 




BBE90 


BE90 4650 




BBE97 


BE97 4653 




BBEB2 


BEB2 4668 




BBEC4 


BEC4 4679 




BBEC6 


BEC6 4686 




BBED3 


BED3 4688 




BBEE3 


BEE3 4693 




BBEEF 


BEEF 4707 




BBF07 


BF07 4692 




BBFOC 


BFOC 4714 




BBF84 


BF84 4781 




BBF9E 


BF9E 4788 


4793 


BBFBE 


BFBE 4806 


4812 


BBFED 


BFED 4779 


4803 


BBFFD 


BFFD 4848 




JA437 


A437 786 
4185 


1237 1320 


JA469 


A469 1228 




JA7AE 


A7AE 1159 


1276 1986 


JA7E1 


A7E1 659 


1151 1179 


JA7EF 


A7EF 1402 




JA84B 


A84B 1140 




JA897 


A897 1258 




JA8A0 


A8A0 1187 


1275 1388 


JA8F8 


A8F8 1793 


2987 


JA971 


A971 1445 




JAA68 


AA68 1551 




JAAAO 


AAAO 1596 




JAAA2 


AAA2 1677 




JAACA 


AACA 788 




JAB4D 


AB4D 1882 
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1268 


1286 


1328 


1724 


1981 


Z3B 


003L 


1221 


1242 






















Z3G 


003C 


1222 


1243 






















Z3D 


003D 


1131 


1217 


1239 


1734 


















Z3E 


003E 


954 


1132 


1218 


1235 


1735 
















Z3F 


003F 


1721 


1907 






















Z40 


0040 


1722 


1911 






















Z41 


0041 


1198 


1612 






















Z42 


0042 


1195 


1813 






















Z43 


0043 


1818 


1827 


1886 


1919 


1926 
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Z44 0044 1819 1828 1887 1920 

Z45 0045 2268 2475 2504 2505 2527 2564 2599 2683 2687 2724 2760 2873 

Z46 0046 2269 2510 2530 2565 2602 2681 2689 2726 2765 2876 

Z47 0047 2o24 2885 2890 2981 3016 3023 3040 4661 4673 

Z48 0048 2625 2888 2979 3021 3027 3038 

Z49 0049 491 496 1011 1014 1048 1118 1451 1473 1476 1571 1574 1577 

1821 1948 1968 3680 3689 4234 
Z4A 004A 488 493 1116 1312 1452 1486 1822 1949 1969 3685 3688 4235 
Z4B 004B 1825 1888 2073 2137 
Z4C 004C 1826 1889 

Z4B 004D 2035 2045 2046 2048 2052 2086 2099 2419 
74E 004E 2997 3006 3011 3015 3019 3033 3036 3044 3057 3060 3063 3066 

3069 3199 3307 3324 3331 3345 3350 4784 4785 4790 4791 4800 

4801 
Z4F 004F 2998 3004 3013 3046 3198 3308 3323 
Z50 0050 1556 1566 1570 1573 1576 3084 3375 3485 3488 3495 3514 3534 

3554 
Z51 0051 1557 1567 3085 3376 3496 3556 
Z53 0053 3213 3227 3309 3311 
Z55 0055 2368 3310 3326 3330 3342 3548 3557 
Z56 0056 2370 3727 3742 3764 3804 
Z57 0057 581 4228 4229 
Z58 0056 536 540 545 549 721 2590 2593 2637 2802 2814 2884 3224 

3228 3245 3246 3267 3339 3344 

Z59 0059 542 551 726 2591 2594 2638 2797 2799 2816 2819 2887 3225 

3229 3249 3250 3265 33 >0 3347 3348 

Z5A 005A 521 531 534 544 548 719 2584 3333 

Z5B 005B 525 536 550 723 2585 3336 

Z5C 005C 4223 

Z5D 005D 2285 2902 2S23 4430 4472 4492 4586 4598 4601 4606 4618 4667 

Z5E 005E 2281 4464 4470 4473 4477 4481 4514 4525 4532 4617 4691 4696 

Z5F 005K 522 672 678 680 691 739 881 883 888 895 399 902 
997 1002 1005 1024 1027 1030 1031 1300 2522 2528 2532 2536 
2580 2600 2603 2606 2603 2610 2612 2614 2618 2633 2715 2722 
2727 2730 2732 2735 2749 2761 2766 2775 2787 2790 2822 2824 
2828 2835 2846 2851 2896 2899 3202 3301 3303 3332 4467 4468 
4490 

Z60 0060 526 676 688 882 1032 1303 2521 2581 2621 2634 2716 2736 
2827 3203 3298 3304 3334 4268 4278 4457 4460 4518 

Z61 0061 587 1376 1496 1561 1562 2125 2155 2421 2431 2435 2662 3092 
3115 3140 3643 3710 3733 3736 3798 3830 3834 3836 3945 3949 
4050 4056 4065 4093 4121 4122 4124 4217 4257 4287 4297 4322 
4344 4371 4402 4412 4509 4574 4811 

Z62 0062 1098 1099 2123 2321 2422 2448 2944 3090 3102 3142 3477 3777 
3783 3786 3815 3817 3827 3838 3850 3852 3876 3990 4129 4167 
4188 4214 4254 4312 4316 4348 4392 4393 4394 4419 4554 4644 
4646 

Z63 0063 1517 2121 2318 2423 2945 3091 3103 3144 3774 3785 3788 3812 
3814 3826 3839 3853 38 i5 3874 3988 4132 4164 4190 4209 4249 
4314 4352 4420 4555 4641 4643 

Z64 0064 1472 1516 1534 1539 1546 1549 1554 2119 2210 2252 2258 2266 
2295 2298 2317 2333 2353 2384 2397 2648 2697 2843 2863 3082 
3147 3357 3368 3423 3592 3647 3771 3787 3790 3809 3811 3825 
3840 3856 3858 3S72 3t86 4135 4161 4192 4206 4246 4321 4356 
4421 4638 4640 

Z65 0065 1399 1475 1518 1542 1550 2117 2207 2254 2260 2267 2319 2334 
2351 2387 2392 2649 2699 2845 2i>67 3083 3148 3355 3424 3521 
3537 3539 3594 3648 3768 3789 3792 3806 3808 3824 3841 3859 
3861 3870 3984 4138 4158 4194 4203 4243 4320 4362 4413 4422 
4634 4637 
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Z66 


0066 


1096 


1497 


1967 


2106 


2153 


2437 


2443 


2657 


3641 


3705 


3707 


3738 






3799 


3847 


3o49 


4042 


4070 


4073 


4212 


4252 


4265 


42S9 


4324 


4329 






4342 


4364 


4375 


4390 


4407 


4408 


4507 


4566 


4570 


4813 


4815 




Z67 


0067 


4436 


4483 






















Z68 


0068 


3893 


4267 


4279 


4379 


4386 


4396 














Z6S 


0069 


2142 


2411 


2412 


3729 


4'J49 


4055 


4780 












Z6A 


006A 


2144 


2409 


2410 


3816 


4014 


4046 


4128 


4152 


4166 


4168 






Z6B 


006B 


2146 


3813 


4011 


4038 


4131 


4151 


4163 


4165 










Z6C 


006C 


2148 


2424 


2427 


2447 


3810 


4008 


4035 


4134 


4150 


4160 


4162 




Z6D 


006D 


2150 


2425 


2428 


3807 


4005 


4032 


4137 


4149 


4157 


4159 






Z6E 


006E 


2152 


2407 


3708 


3737 


4041 


4044 


4264 


4506 


4787 








Z6F 


006F 


1558 


2154 


3100 


3106 


3117 


3129 


3362 


3366 


3379 


3389 


3392 


3395 






3709 


3753 


4043 


4069 


4091 


4106 


4508 












Z70 


0070 


1559 


2273 


3101 


3119 


3123 


3130 


3149 


3364 


3380 


3726 


3746 


3750 






3765 


3791 


3793 


3805 


3823 


3842 


3862 


3864 


3865 


3886 


3900 


3982 






4020 


4180 


4218 


4259 


4271 


42S2 


4289 


4323 


4360 


4406 


4846 




Z71 


0071 


S18 


833 


1498 


1501 


1502 


1510 


2283 


2770 


2792 


2S11 


2838 


2858 






2868 


2912 


3118 


3604 


3626 


4571 


4622 


4631 


4662 


4672 


4682 




Z72 


0072 


2758 


2793 


2810 


2817 


2839 


2857 


2871 


2913 


3122 


3605 


3627 




Z7A 


007A 


650 


794 


822 


857 


869 


963 


1083 


1126 


1134 


1137 


1143 


1146 






1149 


1150 


1212 


1240 


1266 


1291 


1302 


1330 


1340 


1341 


1359 


1736 






1823 


lo29 


1845 


1853 


1665 


1884 


1890 


1903 


1906 


1909 


1983 


2022 






2025 


2081 


2084 


2191 


2235 


2935 


3031 


3034 


3052 


3602 


3607 


3628 






4529 
























Z7B 


007E 


651 


867 


966 


1085 


1127 


1152 


1213 


1241 


1264 


1292 


1305 


1332 






1343 


1737 


1824 


1830 


1846 


1866 


1885 


1891 


1985 


2024 


2083 


2192 






2983 


3029 


3037 


3054 


3603 


3612 


3629 













End, Part One 
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1 




.L 






2 


.H 






3 ;CBM 

4 ; 


-64- 


Part Two 


0000 


5 ; 

6 ZOO 


s 


$00 


0001 


7 Z01 


= 


$01 




8 




bit 


(output) 




9 




bit 


1 (output) 




10 




bit 


2 (output) 




11 




bit 


3 (output) 




12 




bit 


4 (input) 




13 




bit 


5 (output) 




14 




bit 


6 unused 




15 




bit 


7 unused 


0002 


16 Z02 


= 


$02 


0003 


17 Z03 


=. 


$03 


0004 


18 Z04 


= 


$04 


0005 


19 Z05 


= 


$05 


0006 


20 Z06 


= 


$06 


0007 


21 Z07 


= 


$07 


000A 


22 ZOA 


= 


$0A 


0012 


23 Z12 


= 


$12 


0013 


24 Z13 


= 


$13 


0016 


25 Z16 


- 


$16 


0018 


26 Z18 


= 


$18 


0022 


27 Z22 


= 


$22 


0023 


28 Z23 


= 


$23 


002B 


29 Z2B 


= 


$2B 


002C 


30 Z2C 


= 


$2C 


002D 


31 Z2D 


- 


$2D 


002E 


32 Z2E 


= 


$2E 


0033 


33 Z33 


= 


$33 


0034 


34 Z34 


= 


$34 


0037 


35 Z37 


- 


$37 


0036 


36 Z38 


= 


$38 


0049 


37 Z49 


= 


$49 


004A 


38 Z4A 


= 


$4A 


004E 


39 Z4E 


- 


$4E 


0053 


40 Z53 


= 


$53 


0054 


41 Z54 


= 


$54 


0056 


42 Z56 


= 


$56 


0057 


43 Z57 


= 


$57 


005C 


44 Z5C 


- 


$5C 


0061 


45 Z61 


- 


$61 


0062 


46 Z62 


- 


$62 


0063 


47 Z63 


= 


$63 


0064 


48 Z64 


= 


$64 


0065 


49 Z65 


= 


$65 


0066 


50 Z66 


= 


$66 


0067 


51 Z67 


- 


$67 


0068 


52 Z68 


- 


$68 


0069 


53 Z69 


= 


$69 


006E 


54 Z6E 


= 


$6E 


006F 


55 Z6F 


= 


$6F 


0070 


56 Z70 


= 


$70 


0071 


57 Z71 


- 


$71 


0072 


58 Z72 


= 


$72 


0073 


59 Z 


73 


= 


$73 



;6510 data direction register 
;6510 I/O register 

= RAM at $A000-$BFFF (BASIC area) 
= RAM at $E000-$EFFF (Kernal area) 
- access CRT shapes at $D000-$DFFF 
cassette write line 
cassette sense line 
cassette motor control 



dummy address for offset 

fixed-float vector 

high byte of same 

fixed/float vector 

high byte of same 

search character 

0-load, l=verify 

sign flag 

CMD file number 

pointer into temporary string stack 

high byte of last temp string vector 

utility pointer area 

pointer to start of BASIC 

high byte of same 

pointer start of variables 

high byte of same 

pointer to start of string storage 

high byte of same 

pointer to limit of memory 

high byte of same 

file/device save area 

second file/device save area 

misc. work area 

default step value 

JMP vector for functions 

misc. numeric work area 

floating point accu # 1 - exponent 
flp # 1 - mantissa 



flp # 1 - sign 

series evaluation constant pointer 

flp accu t 1 overflow 

flp accu # 2 thru Z6E 

;sign comparison flp accu #1 vs accu # 2 

; flp accu # 1 guard byte 

; table pointer for EXP/SIN/ATN 

;high byte of same 

; character fetch code, beginning address 
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007A 


60 


Z7A 


= 


$7A 


007B 


61 


Z7B 


- 


$7B 


008B 


62 


Z8B 


- 


$8B 


0090 


63 


Z90 


- 


$90 


0091 


64 


Z91 


= 


$91 


0092 


65 


Z92 


« 


$92 


0093 


66 


Z93 


= 


$93 


0094 


67 


Z94 


= 


$94 


0095 


68 


Z95 


- 


$95 


0096 


69 


Z96 


= 


$96 


0097 


70 


Z97 


- 


$97 


0098 


71 


Z98 


- 


$98 


0099 


72 


Z99 


= 


$99 


009A 


73 


Z9A 


= 


$9A 


009B 


74 


Z9B 


- 


$9B 


009C 


75 


Z9C 


- 


$9C 


009D 


76 


Z9D 


- 


$9D 


009E 


77 


Z9E 


- 


$9E 


009F 


78 


Z9F 


- 


$9F 


00A0 


79 


ZAO 


- 


$A0 


00A1 


80 


ZA1 


= 


$A1 


00 A2 


81 


ZA2 


= 


$A2 


00A3 


82 


ZA3 


- 


$A3 


00A4 


83 


ZA4 


- 


$A4 


00A5 


84 


ZA5 


= 


$A5 


00A6 


85 


ZA6 


=• 


$A6 


0OA7 


86 


ZA7 


- 


$A7 


00A8 


87 


ZA8 


= 


$A8 


00A9 


88 


ZA9 


= 


$A9 


OOAA 


89 


ZAA 


= 


$AA 


OOAB 


90 


ZAB 


- 


$AB 


OOAC 


91 


ZAC 


= 


$AC 


OOAD 


92 


ZAD 


- 


$AD 


OOAE 


93 


ZAE 


- 


$AE 


OOAF 


94 


ZAF 


= 


$AF 


OOBO 


95 


ZBO 


- 


$B0 


00B1 


96 


ZB1 


- 


$B1 


00B2 


97 


ZB2 


= 


$B2 


00B3 


98 


ZB3 


- 


$B3 


0OB4 


99 


ZB4 


= 


$B4 


00B5 


100 


ZB5 


- 


$B5 


00B6 


101 


ZB6 


» 


$B6 


00B7 


102 


ZB7 


" 


$B7 


00B8 


103 


ZB8 


» 


$B8 


00B9 


104 


ZB9 


- 


$B9 


OOBA 


105 


ZBA 


= 


$BA 


OOBB 


106 


ZBB 


- 


$BB 


OOBC 


107 


ZBC 


- 


$BC 


OOBD 


108 


ZBD 


- 


$BD 


OOBE 


109 


ZBE 


- 


$BE 


OOBF 


110 


ZBF 


- 


$BF 


OOCO 


111 


ZCO 


- 


$C0 


00C1 


112 


ZC1 


- 


$C1 


00C2 


113 


ZC2 


- 


$C2 


00C3 


114 


ZC3 


- 


$C3 


O0C4 


115 


ZC4 


- 


$C4 


00C5 


116 


ZC5 


- 


$C5 


00C6 


117 


ZC6 


- 


$C6 


00C7 


118 


ZC7 


- 


$C7 


00C8 


119 


ZC8 


- 


$C8 



current character address 

high byte of same 

RHD seed value 

status word ST 

keyboard scan results 

tape timing speed correction 

load=0, verlfy=l 

serial output deferred character flag 

serial deferred character 

tape sync established flag 

register save area 

number of files open 

Input device 

output device 

tape character parity 

tape byte available flag 

direct/run mode (80/00) 

tape pass 1 error log/char buffer 

tape pass 2 error log 

jiffy clock - high byte 

jiffy clock - middle byte 

jiffy clock - low byte 

serial bit count/EOl flag 

serial byte read/tape cycle count 

serial bit count/ tape hdr block count 

tape buffer pointer 

tape leader count/RS-232 input bit 

tape write new byte/read error/bit count 

tape write cycle/read error/start bit 

RS-232 input byte/ tape scan/hdr count 

write leader length/read checksum/parity 

tape buffer/scrolling/I-0 pointer 

high byte of same 

tape end address/end of 1/0 area 

high byte of same 

tape speed correction value 

work area for tape speed correction 

tape buffer pointer 

high byte of same 

RS-232 transmit bit count/tape sync 

RS-232 next bit to send/saved tape sync 

read char error/RS-232 output buffer 

number of characters in file name 

current logical file 

current secondary address 

current device 

pointer to file name 

high byte of same 

RS-232 xmit parity/ tape read-write buffer 

tape phase 

tape input byte buffer 

tape motor interlock 

I/O start address/work address 

high byte of same 

kernal setup pointer 

high byte of same 

last key pressed 

keyboard buffer count 

reverse video switch 

end of line pointer for input 



123 



00C9 


120 


ZC9 


= 


$C9 


OOCA 


121 


ZCA 


= 


$CA 


OOCB 


122 


ZCB 


= 


$CB 


OOCC 


123 


zee 


= 


$CC 


OOCD 


124 


ZCD 


= 


$CD 


OOCE 


125 


ZCE 


= 


$CE 


OOCF 


126 


ZCF 


= 


$CF 


OODO 


127 


ZDO 


= 


$D0 


OOD1 


128 


ZD1 


= 


$D1 


OOD2 


129 


ZD2 


= 


$D2 


OOD3 


130 


ZD3 


= 


$D3 


00D4 


131 


ZD4 


= 


$D4 


00D5 


132 


ZD5 


= 


$D5 


OOD6 


133 


ZD6 


= 


$D6 


OOD7 


134 


ZD7 


= 


$D7 


00D8 


135 


ZD8 


= 


$D8 


OOD9 


136 


ZD9 


= 


$D9 


OODA 


137 


ZDA 


= 


$DA 


OOF1 


138 


ZF1 


= 


$F1 


O0F3 


139 


ZF3 


= 


$F3 


OOF4 


140 


ZF4 


= 


$F4 


OOF5 


141 


ZF5 


= 


$F5 


00F6 


142 


ZF6 


= 


$F6 


OOF7 


143 


ZF7 


= 


$F7 


00F8 


144 


ZF8 


= 


$F8 


OOF9 


145 


ZF9 


= 


$F9 


OOF A 


146 


ZFA 


= 


$FA 



input cursor, line number 

input cursor, position on line 

key pressed - $40 if no key 

cursor enable - = flash 

cursor flash timing countdown 

character under cursor 

cursor blink phase 

screen-kbd flag/ screen line length 

pointer to screen line 

high byte of same 

position of cursor on line 

string flag 

screen line length current line 

cursor line number 

character-bit buffer/checksum 

// of outstanding inserts 

screen line table thru $F0 

dummy screen link 

color memory pointer 

high byte of same 

keyboard table address 

high byte of same 

R.S-232 receive buffer base address 

high byte of same 

RS-232 transmit buffer base address 

high byte of same 
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0014 


148 


X0014 


= 


$0014 


0079 


149 


X0079 


= 


$0079 


0100 


150 


X0100 


=» 


$0100 


01FC 


151 


X01FC 


= 


$01FC 


01FD 


152 


X01FD 


= 


$01FD 


0200 


153 


X0200 


= 


$0200 


0259 


154 


X0259 


= 


$0259 


0263 


155 


X0263 


= 


$0263 


026D 


156 


X026D 


= 


$026D 


0277 


157 


X0277 


= 


$0277 


0281 


158 


X0281 


= 


$0281 


0282 


159 


X0282 


= 


$0282 


0283 


160 


X0283 


= 


$0283 


0284 


161 


X0284 


= 


$0284 


0285 


162 


X0285 


= 


$0285 


0286 


163 


X0286 


= 


$0286 


0287 


164 


X0287 


= 


$0287 


0288 


165 


X0288 


= 


$0288 


0289 


166 


X0289 


= 


$0289 


02 8 A 


167 


X028A 


= 


$028A 


028B 


168 


X028B 


= 


$028B 


028C 


169 


X028C 


= 


$028C 


028D 


170 


X028D 


= 


$028D 


028E 


171 


X028E 


= 


$028E 


028F 


172 


X028F 


= 


$028F 


0290 


173 


X0290 


= 


$0290 


0291 


174 


X0291 


= 


$0291 


0292 


175 


X0292 


= 


$0292 


0293 


176 


X0293 


= 


$0293 


0294 


177 


X0294 


= 


$0294 


0295 


178 


X0295 


= 


$0295 


0296 


179 


X0296 


= 


$0296 


0297 


180 


X0297 


= 


$0297 


0298 


181 


X0298 


= 


$0298 


0299 


182 


X0299 


= 


$0299 


029A 


183 


X029A 


= 


$029A 


029B 


184 


X029B 


= 


$029B 


029C 


185 


X029C 


= 


$029C 


029D 


186 


X029D 


= 


$029D 


02 9E 


187 


X029E 


= 


$029E 


02 9F 


188 


X029F 


= 


$029F 


02A0 


189 


X02A0 


= 


$02A0 


02A1 


190 


X02A1 


- 


$02A1 


02A2 


191 


X02A2 


= 


$02A2 


02A3 


192 


X02A3 


" 


$02A3 


02A4 


193 


X02A4 


= 


$02A4 


02A5 


194 


X02A5 


= 


$02A5 


02A6 


195 


X02A6 


= 


$02A6 


0300 


196 


X0300 


= 


$0300 


030C 


197 


X030C 


= 


$030C 


030D 


198 


X030D 


= 


$030D 


030E 


199 


X030E 


= 


$030E 


030F 


200 


X030F 


= 


$030F 


0310 


201 


X0310 


= 


$0310 


0311 


202 


X0311 


= 


$0311 


0312 


203 


X0312 


= 


$0312 


0314 


204 


X0314 


= 


$0314 


0315 


205 


X0315 


= 


$0315 


0316 


206 


X0316 


= 


$0316 


0318 


207 


X0318 


= 


$0318 



Integer value (SYS address) 

fetch current character 

flp to ASCII work area/ tape error log 

prefix to line in input buffer 

high byte of same 

BASIC input buffer 

logical file table 

device t table 

secondary address table 

keyboard buffer 

start of memory for operating system 

high byte of same 

top of memory for operating system 

high byte of same 

serial bus timeout flag (not used) 

current color code 

color under cursor 

screen memory page 

maximum size of keyboard buffer (10) 

key repeat flag ($8X=repeat all keys) 

repeat key frequency counter 

repeat key delay counter 

keyboard shift/control flag 

last keyboard shift pattern 

address of keyboard decode routine 

high byte of same 

shift mode switch ($80=locked) 

auto scroll flag ($00=on) 

RS-232 Control Register 

RS-232 Command Register 

non-standard bit time 

high byte of same 

RS-232 Status Register 

number of bits to send/receive 

baud rate 

high byte of same 

RS-232 receive buffer input pointer 

RS-232 receive buffer output pointer 

RS-232 transmit buffer input pointer 

RS-232 transmit buffer output pointer 

IRQ vector save area 

high byte of same 

internal ICR2 activity register 

internal CRB1 activity register 

ICR1 save area 

CRA1 save area 

pos first 40 column line after cursor 

US/Intl machine flag ($00 = US) 

error message link 

save area for A register 

save area for X register 

save area for Y register 

save area for SR (flag) register 

USR jump link 

low byte of USR jump address 

high byte of USR jump address 

IRQ vector 

high byte if IRQ vector 

BRK vector 

NMI vector 
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031A 


208 X031A - 


$031A 


031C 


209 X031C - 


$031C 


031E 


210 X031E - 


$031E 


0320 


211 X0320 = 


$0320 


0322 


212 X0322 - 


$0322 


0324 


213 X0324 - 


$0324 


0326 


214 X0326 - 


$0326 


0328 


215 X0328 = 


$0328 


032A 


216 X032A - 


$032A 


032C 


217. X032C - 


$032C 


0330 


218 X0330 - 


$0330 


0332 


219 X0332 « 


$0332 



;OPEN vector 

; CLOSE vector 

;set Input vector 

;set output vector 

; restore 1/0 devices to default vector 

; Input vector 

; output vector 

;test STOP Key vector 

;GET vector 

; close all files and channels vector 

;load RAM vector 

;save RAM vector 
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8000 


221 


X8000 = 


$8000 


8002 


222 


X8002 = 


$8002 


8004 


223 


X8004 - 


$8004 


AOOO 


224 


XAOOO - 


$A000 


A002 


225 


XA002 - 


$A002 


A364 


226 


TA364 = 


$A364 


A376 


227 


TA376 - 


$A376 


A408 


228 


XA408 = 


$A408 


A437 


229 


XA437 - 


$A437 


A43A 


230 


XA43A = 


$A43A 


A474 


231 


XA474 - 


$A474 


A483 


232 


WA483 - 


$A483 


A52A 


233 


XA52A - 


$A52A 


A533 


234 


XA533 - 


$A533 


A57C 


235 


WA57C = 


$A57C 


A644 


236 


XA644 - 


$A644 


A663 


237 


XA663 - 


$A663 


A677 


238 


XA677 - 


$A677 


A67A 


239 


XA67A - 


$A67A 


A68E 


240 


XA68E - 


$A68E 


A71A 


241 


WA71A - 


$A71A 


A7E4 


242 


WA7E4 - 


$A7E4 


ABIE 


243 


XAB1E - 


$AB1E 


AD8A 


244 


XAD8A - 


$AD8A 


AD9E 


245 


XAD9E = 


$AD9E 


AE86 


246 


WAE86 - 


$AE86 


AEFD 


247 


XAEFD - 


$AEFD 


AF08 


248 


XAF08 - 


$AF08 


B1AA 


249 


WB1AA - 


$B1AA 


B248 


250 


WB248 - 


$B248 


B391 


251 


WB391 - 


$B391 


B6A3 


252 


XB6A3 = 


$B6A3 


B79E 


253 


XB79E - 


$B79E 


B7F7 


254 


XB7F7 = 


$B7F7 


B849 


255 


XB849 - 


$B849 


B850 


256 


XB850 = 


$B850 


B853 


257 


XB853 - 


$B853 


B867 


258 


XB867 = 


$B867 


B8D7 


259 


XB8D7 - 


$B8D7 


B9BC 


260 


TB9BC - 


$B9BC 


BA28 


261 


XBA28 - 


$BA28 


BAB9 


262 


XBAB9 - 


$BAB9 


BAD4 


263 


XBAD4 - 


$BAD4 


BB07 


264 


XBB07 =■ 


$BB07 


BBOF 


265 


XBBOF - 


$BB0F 


BBA2 


266 


XBBA2 = 


SBBA2 


BBC7 


267 


XBBC7 - 


$BBC7 


BBCA 


268 


XBBCA - 


$BBCA 


BBD4 


269 


XBBD4 » 


$BBD4 


BCOC 


270 


XBCOC - 


$BC0C 


BCOF 


271 


XBCOF - 


$BC0F 


BC2B 


272 


XBC2B - 


$BC2B 


BCCC 


273 


XBCCC - 


$BCCC 


BDCD 


274 


XBDCD - 


$BDCD 


BFB4 


275 


XBFB4 - 


$BFB4 


BFC4 


276 


TBFC4 - 


$BFC4 



cartridge RESET vector 

cartridge RESTORE (warm start) vector 

cartridge identifier 

begin BASIC vector 

BASIC warm start vector 

message OK 

message READY 

array area overflow check 

error message link 

print error message 

print READY, do warm start 

standard BASIC warm start 

reset program ptrs and relink BASIC 

relink BASIC 

crunch tokens 

perform NEW 

perform CLR 

perform RESTORE, reset stack/ pgm ptrs 

reset stack and program pointers 

re-initialize current character ptr 

print tokens 

execute a statement 

print string from AY 

get next non-string value 

evaluate expression 

fetch arithmetic element 

check next character for "," 

print SYNTAX Error 

flp-flxed routine 

print ILLEGAL QUANTITY Error 

fixed-flp routine 

de-allocate temporary string storage 

fetch integer value in X, check range 

convert flp to integer 

half round flp accu 

subtract flp accu from # indexed by AY 

perform diadic minus 

add flp accu to # indexed by AY 

perform postshift 

flp literal 1 

multiply flp accu times # indexed by AY 

add exponents 

check sign of flp accu 

divide flp accu by t indexed by AY 

divide # indexed by AY by flp accu 

load flp accu with # indexed by AY 

store flp accu at Z5C-60 

store flp accu at Z57-5B 

store flp accu in area Indexed by XY 

move rounded flp accu into 2nd flp accu 

move flp accu into 2nd flp accu 

get sign of flp accu into A 

perform INT 

print # from AX 

minus operator 

polynome table for EXP 
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278 


;6567 


vie 


eo chip 




279 


; 






DOOO 


280 


XDOOO 


= 


$D000 


DOll 


281 


XD011 


= 


$D011 


D012 


282 


XD012 


= 


$D012 


D016 


283 


XD016 


= 


$D016 


D018 


284 


XD018 


= 


$D018 


D019 


285 


XD019 


= 


$D019 


D021 


286 
287 


XD021 


= 


$D021 




288 


•6581 


Sound Inte 




289 


; 






D418 


290 
291 


XD418 

J 


= 


$D418 




292 


;6526 


CIA1 




293 


> 






DCOO 


294 


XDCOO 


= 


$DCOO 


DCOl 


295 


XDC01 


= 


$DC01 


DC02 


296 


XDC02 


= 


$DC02 


DC03 


297 


XDC03 


= 


$DC03 


DC04 


298 


XDC04 


= 


$DC04 


DC05 


299 


XDC05 


» 


$DC05 


DC06 


300 


XDC06 


= 


$0CO6 


DC07 


301 


XDC07 


= 


$DC07 


DCOD 


302 


XDCOD 


= 


$DCOD 


DCOE 


303 


XDCOE 


= 


$DCOE 


DCOF 


304 
305 


XDCOF 


" 


$DCOF 




306 


■6526 


CIA2 




307 








DDOO 


308 


XDDOO 


= 


$DDOO 


DDOl 


309 


XDD01 


■ 


$DD01 


DD02 


310 


XDD02 


= 


$DD02 


DD03 


311 


XDD03 


= 


$DD03 


DD04 


312 


XDD04 


= 


$DD04 


DD05 


313 


XDD05 


= 


$DD05 


DD06 


314 


XDD06 


= 


$DD06 


DD07 


315 


XDD07 


= 


$DD07 


DDOD 


316 


XDDOD 


= 


$DDOD 


DDOE 


317 


XDDOE 


= 


$DDOE 


DDOF 


318 


XDDOF 


= 


$DDOF 



;6567 video chip base address 

;bit 4 = to disable video chip 

;Raster Register 

;bit 5 = to reset video chip 

;memory pointers for video chip 

; Interrupt Register 

; Background # color 



;mode/volume for SID chip 



;FA1 port A 

;PB1 port B 

;DDRA1 direction bits for port A 

;DDRB1 direction bits for port B 

;TAL1 timer A low 

;TAH1 timer A high 

;TBL1 timer B low 

;TBH1 timer B high 

;ICR1 interrupt control register 

;CRA1 control register for port A 

;CRB1 control register for port B 



;PA2 port A 

;PB2 port B 

;DDRA2 direction bits for port A 

;DDRB2 direction bits for port B 

;TAL2 timer A low 

;TAH2 timer A high 

;TBL2 timer B low 

;TBH2 timer B high 

; ICR2 interrupt control register 

;CRA2 control register for port A 

;CRB2 control register for port B 
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320 ;continuation of 

321 : 



E000 
EOOO 
E002 
E005 
E007 
E009 
EOOB 
EOOE 
E011 
E013 
E014 
E016 
E018 
E019 
E01B 
E01C 
E01E 
E020 
E022 
E024 
E026 
E027 
E029 
E02B 
E02D 
E030 
E033 
E035 
E037 
E03A 
E03C 
E03E 
E03F 
E042 



8556 

200FBC 

A561 

C988 

9003 

20D4BA 

20CCBC 

A507 

18 

6981 

F0F3 

38 

E901 

48 

A205 

B569 

B461 

9561 

9469 

CA 

10F5 

A556 

8570 

2053B8 

20B4BF 

A9C4 

AOBF 

2059E0 

A900 

856F 

68 

20B9BA 

60 



322 
323 
324 
325 
326 
327 



.OR $E000 
STA Z56 
JSR XBCOF 
LDA Z61 
CMP $88 
BCC BEOOE 



328 BEOOB JSR XBAD4 

329 BEOOE JSR XBCCC 



330 
331 
332 
333 
334 
335 
336 
337 



LDA Z07 
CLC 

ADC $81 
BEQ BEOOB 
SEC 

SBC $01 
PHA 
LDX $05 



338 BE01E LDA Z69.X 



339 

340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 



LDY Z61.X 
STA Z61.X 
STY Z69.X 
DEX 

BPL BE01E 
LDA Z56 
STA Z70 
JSR XB853 
JSR XBFB4 
LDA <TBFC4 
LDY >TBFC4 
JSR SE059 
LDA $00 
STA Z6F 
PLA 

JSR XBAB9 
RTS 



"EXP" routine 

;set guard byte for second flp accu 
;copy flp accu into second flp accu 
;get exponent 
;if => 8 

;then either or overflow 

; perform INT 

;get least significant byte 

;if = 127 

;then also overflow 

; remove excess 128 
;and save it 

;move second flp accu into flp accu 

;and vice versa 



; restore copied guard byte 
; apply diadic "-" 
; then minus operator 

;set AY to polynome table 
;and compute polynome 

; clear XOR of signs 
;add saved integral part 
; to exponent 
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357 ; compute odd degrees for SIN and ATN 

358 ; 



E043 
E045 
E047 
E04A 
E04C 
E04F 
E052 
E054 
E056 



8571 

8472 

20CABB 

A957 

2028BA 

205DE0 

A957 

A000 

4C28BA 



E059 
E05B 
E05D 
EO60 
E062 
E064 
E066 
E067 
E068 
E06A 
E06C 
E06E 
E070 
E073 
E075 
E077 
E078 
E07A 
E07C 
E07D 
E07F 
E081 
E084 
E086 
E088 
E08A 
E08C 



8571 

8472 

20C7BB 

B171 

8567 

A471 

C8 

98 

D002 

E672 

8571 

A472 

2028BA 

A571 

A472 

18 

6905 

9001 

C8 

8571 

8472 

2067B8 

A95C 

AOOO 

C667 

D0E4 

60 



359 JE043 

360 

361 

362 

363 

364 

365 

366 

367 

368 ; 

369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 



STA Z71 
STY Z72 
JSR XBBCA 
LDA <Z57 
JSR XBA28 
JSR SE05D 
LDA <Z57 
LDY >Z57 
JMP XBA28 



;save table pointer 

; store flp accu at Z57 

;set AY to Z57 

;multlply flp accu by # indexed by AY 

; compute polynome 

;set AY to Z57 



multiply flp accu by Z57 
;computepolynome according to table indexed by AY 
;save table pointer 
; store flp accu at Z5C 



SE059 STA Z71 
STY Z72 

SE05D JSR XBBC7 

LDA (Z71),Y 

STA Z67 

LDY Z71 

INY 

TYA 

BNE BE06C 

INC Z72 



381 BE06C STA Z71 

382 LDY Z72 

383 BE070 JSR XBA28 

384 LDA Z71 

385 LDY Z72 

386 CLC 

387 ADC $05 

388 BCC BE07D 

389 INY 

390 BE07D STA Z71 

391 STY Z72 

392 JSR XB867 

393 LDA <Z5C 

394 LDY >Z5C 

395 DEC Z67 

396 BNE BE070 

397 RTS 



;save order 

;add 1 to table pointer 



;save updated pointer 

;and restore AY 

;multiply flp accu by t indexed by AY 

; restore AY 



;add 5 to table pointer 

;save table pointer 

;add # indexed by AY to flp accu 

;set AY to Z5C 
; decrement order 
;and repeat until 
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E08D 983544 
E092 6828B1 



E097 
E09A 
E09C 
E09E 
E0A1 
EOA3 
EOA5 
EOA7 
E0A9 
EOAB 
EOAC 
EOAE 
EOBO 
EOB2 
EOB4 
EOB6 
EOB7 
EOB9 
EOBB 

EOBE 
EOCO 
E0C2 
EOC5 
EOC7 
E0C9 
EOCC 
EOCE 
EODO 
EOD3 
E0D5 
EOD7 
EOD9 
EODB 
EODD 
EODF 
EOE1 
EOE3 
EOE5 
EOE7 
EOE9 
EOEB 
EOED 
EOEF 
EOF2 
E0F4 
E0F6 



202BBC 

3037 

D020 

20F3FF 

8622 

8423 

A004 

B122 

8562 

C8 

B122 

8564 

A008 

B122 

8563 

C8 

B122 

8565 

4CE3E0 

A98B 

AOOO 

20A2BB 

A98D 

AOEO 

2028BA 

A992 

AOEO 

2067B8 

A665 

A562 

8565 

8662 

A663 

A564 

8563 

8664 

A900 

8566 

A561 

8570 

A980 

8561 

20D7B8 

A28B 

AOOO 

4CD4BB 



399 ; floating point numbers for RND 

400 ; 

401 ; flp number for multiplication 

402 TE08D .BY $98,$35,$44,$7A,$00 

403 ; flp number for addition 

404 TE092 .BY $68,$28,$B1,$46,$00 

405 ; 

406 ;"RND" command 

407 ; 

408 WE097 JSR XBC2B 



409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 

427 ; 

428 BEOBE LDA <Z8B 



BMI BE0D3 
BNE BEOBE 
JSR SFFF3 
STX Z22 
STY Z23 
LDY $04 
LDA (Z22),Y 
STA Z62 
INY 

LDA (Z22),Y 
STA Z64 
LDY $08 
LDA (Z22),Y 
STA Z63 
INY 

LDA (Z22),Y 
STA Z65 
JMP JEOE3 



429 
430 
431 
432 
433 
434 
435 
436 



LDY >Z8B 
JSR XBBA2 
LDA <TE08D 
LDY >TE08D 
JSR XBA28 
LDA <TE092 
LDY >TE092 
JSR XB867 



437 BE0D3 LDX Z65 



438 
439 
440 
441 
442 
443 
444 



LDA Z62 
STA Z65 
STX Z62 
LDX Z63 
LDA Z64 
STA Z63 
STX Z64 



445 JE0E3 LDA $00 



446 
447 
448 
449 
450 
451 
452 
453 



STA Z66 
LDA Z61 
STA Z70 
LDA $80 
STA Z61 
JSR XB8D7 
LDX <Z8B 
LDY >Z8B 



454 SE0F6 JMP XBBD4 



;get sign of flp accu into A 
; if < use parameter as seed 
;if > use old seed 
;get base address of I/O devices 



;TAL1 timer value 

;TAH2 timer vaue 

; tenths of a second 

; seconds 

;garble flp set from CIA1 timer/clock 

;let AY point to Z8B (current seed) 

;load flp accu from Z8B-Z8F 
;set AY to RND factor 

;multiply flp accu times RND factor 
;set AY to RND addition value 

;add RND factor to result in flp accu 
; exchange byte 4 and byte 1 

; exchange byte 2 and byte 3 

;set sign positive 



; set guard byte 
;move to exponent 

jperform postshift 

;set XY to RND seed value 

; store flp accu as new seed 
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456 


; handle errors 




457 


; 




E0F9 C9F0 


458 


BE0F9 CMP 


$F0 


EOFB D007 


459 


BNE 


BE 104 


EOFD 8438 


460 


STY 


Z38 


EOFF 8637 


461 


STX 


Z37 


E101 4C63A6 


462 
463 


JMP 


XA663 


E104 AA 


464 


BE104 TAX 




E105 D002 


465 


BNE 


BE 109 


E107 A21E 


466 


LDX 


$1E 


E109 4C37A4 


467 
468 


BE109 JMP 


XA437 


ElOC 20D2FF 


469 


JSR 


SFFD2 


ElOF BOE8 


470 


BCS 


BE0F9 


EU1 60 


471 
472 


RTS 




El 12 20CFFF 


473 


JSR 


SFFCF 


El 15 B0E2 


474 


BCS 


BE0F9 


E117 60 


475 
476 


RTS 

J 




El 18 20ADE4 


477 


JSR 


SE4AD 


El IB BODC 


478 


BCS 


BE0F9 


El ID 60 


479 
480 


RTS 




E11E 20C6FF 


481 


JSR 


SFFC6 


E121 B0D6 


482 


BCS 


BE0F9 


E123 60 


483 
484 


RTS 




E124 20E4FF 


485 


JSR 


SFFE4 


E127 BODO 


486 


BCS 


BE0F9 


E129 60 


487 


RTS 





direct I/O calles from BASIC interpreter 
;if open for RS-232, 
;set new top of memory limit 
;CLR, back to basic 

;if no error message indexed, 
; select BREAK message 
;go print message 

joutput a character 
;if no errors, 
; return 

; input a character on current device 
;if no errors, 
; return 

;set output device 
;if no errors, 
;return 

;set input device 
;if no errors, 
; return 

;get a character from current device 
;if no errors, 
; return 
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489 


;"SYS' 


' command 






490 


J 








E12A 208AAD 


491 


WE12A 


JSR 


XAD8A 


;get next non-string value 


E12D 20F7B7 


492 




JSR 


XB7F7 


;convert to integer in Z14/15 


E130 A9E1 


493 




LDA 


>WE147-1 




E132 48 


494 




PHA 






E133 A946 


495 




LDA <WE147-1 




E135 48 


496 




PHA 




;set return address 


E136 AD0FO3 


497 




LDA X030F 




E139 48 


498 




PHA 




;save flag register on stack 


E13A AD0C03 


499 




LDA 


X030C 




E13D AE0D03 


500 




LDX 


X030D 


jrestore A, X & Y 


E140 AC0E03 


501 




LDY 


X030E 


;to status of exit from last 


E143 28 


502 




PLP 






E144 6C1400 


503 
504 




JMP 


(X0014) 


;do SYS routine 


E147 08 


505 


WE147 


PHP 




;save flag register on stack 


E148 8DOC03 


506 




STA 


X030C 


;save A 


E14B 8E0D03 


507 




STX 


X030D 


;save X 


E14E 8C0E03 


508 




STY 


X030E 


; save Y 


E151 68 


509 




PLA 






E152 8D0F03 


510 




STA 


X030F 


;save Flag register 


E155 60 


511 




RTS 
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513 


;"SAVE" command 




514 


; 




E156 20D4E1 


515 


WE156 JSR SE1D4 


E159 A62D 


516 




LDX Z2D 


E15B A42E 


517 




LDY Z2E 


E15D A92B 


518 




LDA <Z2B 


E15F 20D8FF 


519 




JSR SFFD8 


E162 B095 


520 




BCS BE0F9 


E164 60 


521 
522 




RTS 




523 


; "VERIFY" command 




524 


; 




E165 A901 


525 


WE165 LDA $01 


E167 2C 


526 
527 


» 


.BY $2C 




528 


;"LOAD" command 




529 


» 




E168 A900 


530 


WE168 


! LDA $00 


E16A 850A 


531 




STA ZOA 


E16C 20D4E1 


532 




JSR SE1D4 


E16F A50A 


533 




LDA ZOA 


E171 A62B 


534 




LDX Z2B 


E173 A42C 


535 




LDY Z2C 


E175 20D5FF 


536 




JSR SFFD5 


E178 B057 


537 




BCS BE1D1 


E17A A50A 


538 




LDA ZOA 


E17C F017 


539 




BEQ BE195 


E17E A21C 


540 




LDX $1C 


E180 20B7FF 


541 




JSR SFFB7 


E183 2910 


542 




AND $10 


E185 D017 


543 




BNE BE19E 


E187 A57A 


544 




LDA Z7A 


E189 C902 


545 




CMP $02 


E18B F007 


546 




BEQ BE 194 


E18D A964 


547 




LDA <TA364 


E18F A0A3 


548 




LDY >TA364 


E191 4C1EAB 


549 




JMP XAB1E 


E194 60 


550 
551 


BE194 

> 


RTS 


E195 20B7FF 


552 


BE195 


JSR SFFB7 


E198 29BF 


553 




AND $BF 


E19A F005 


554 




BEQ BE1A1 


E19C A21D 


555 




LDX $1D 


E19E 4C37A4 


556 : 
557 


BE19E 


JMP XA437 


E1A1 A57B 


558 : 


BE1A1 


LDA Z7B 


El A3 C902 


559 




CMP $02 


E1A5 D00E 


560 




BNE BE1B5 


E1A7 862D 


561 




STX Z2D 


E1A9 842E 


562 




STY Z2E 


E1AB A976 


563 




LDA <TA376 


E1AD A0A3 


564 




LDY >TA376 


E1AF 201EAB 


565 




JSR XAB1E 


E1B2 4C2AA5 


566 
567 : 




JMP XA52A 




568 : 


;end of load/verif 




569 ; 


t 




E1B5 208EA6 


570 BE1B5 


JSR XA68E 


E1B8 2033A5 


571 




JSR XA533 


E1BB 4C77A6 


572 




JMP XA677 



;set file parameters 

;set end address of BASIC text 

;set address of start address 
;save RAM to a device 
;if no errors, 
; return 



;set value for Verify 
;skip next instruction 



;set value for Load 
;set load/ verify flag 
; fetch file parameters 
; fetch load/ verify flag 
;set start address in XY 

;load device to RAM 
;exit upon error 

;if verify pass, 

; index Verify Error message 

;read ST 

;if ST indicates a mismatch, 

;go print error 



;exit if in RUN mode, else 

; set AY to point to message OK 

; print message OK 



;if load pass 

;and ST indicates an error 

; index Load Error message 
; print message 

; check high addr of current character 

;if in direct mode 
;move end of program address 
;to end of BASIC address 
;set AY to READY message 

; print READY 
;relink BASIC, exit 

from within a program 

;move start of program to next char addr 

; relink BASIC 

; res tore, clear pointers, return 



134 



E1BE 2019E2 
E1C1 20C0FF 
E1C4 BOOB 
E1C6 60 



E1C7 2019E2 
E1CA A549 
E1CC 20C3FF 
E1CF 90C3 
E1D1 4CF9E0 



E1D4 
E1D6 
E1D9 
E1DB 
E1DD 
E1E0 
E1E3 
E1E6 
E1E9 
E1EC 
E1EE 
E1F0 
E1F3 
E1F6 
E1F9 
E1FA 
E1FB 
E1FD 



A900 

20BDFF 

A201 

AOOO 

20BAFF 

2006E2 

2057E2 

2006E2 

2000E2 

AOOO 

8649 

20BAFF 

2006E2 

20OOE2 

8A 

AS 

A649 

4CBAFF 



E200 200EE2 
E203 4C9EB7 



E206 207900 
E209 D002 
E20B 68 
E20C 68 
E20D 60 



E20E 20FDAE 
E211 207900 
E214 D0F7 
E216 4C08AF 



574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 



;"0PEN" command 

WE1BE JSR SE219 
JSR SFFCO 
BCS BE1D1 
RTS 

" CLO SE " c ommand 

WE1C7 JSR SE219 
LDA Z49 
JSR SFFC3 
BCC BE194 

BE1D1 JMP BE0F9 



; fetch parameters 
;perform open 
;if no errors, 
; return 



; fetch parameters 
; res to re file t 
; perform close 
;exit if no errors 
; error 



;set parameters for load/verify/ save 



SE1D4 LDA 
JSR 
LDX 
LDY 
JSR 
JSR 
JSR 
JSR 
JSR 
LDY 
STX 
JSR 
JSR 
JSR 
TXA 
TAY 
LDX 
JMP 



$00 ; assume no file name 

SFFBD ;set file name parameters 

$01 ; assume device 1 

$00 ;and secondary address 

SFFBA ;set logical file, device & sec. addr 

SE206 ; fetch current character 

SE257 ; evaluate expression 

SE206 ; fetch current character 

SE200 ;skip comma and fetch integer into X 

$00 ; secondary address still 

Z49 ;save device # 

SFFBA ;set logical file, device & sec. addr 

SE206 ; fetch current character 

SE200 ;skip comma and fetch integer into X 

;set secondary address 

Z49 ;restore device - 

SFFBA ;set logical file, device & sec. addr 



;skip comma and fetch integer into X 

SE200 JSR SE20E ; check for and skip comma 

JMP XB79E ; fetch integer value into X 



; fetch current character and check for end of line 
; fetch current character 
;if end of line, delete own return addr 



SE206 JSR X0079 
BNE BE20D 
PLA 
PLA 

BE20D RTS 



; check for a comma and skip it 



SE20E JSR XAEFD 

SE211 JSR X0079 

BNE BE20D 

JMP XAF08 



; check for and skip "," 
; fetch current character 

; SYNTAX Error if end of line reached 
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E219 
E21B 
E21E 
E221 
E224 
E226 
E227 
E229 
E22B 
E22E 
E231 
E234 
E236 
E238 
E23A 
E23C 
E23E 
E23F 
E242 
E245 
E248 
E249 
E24A 
E24C 
E24E 
E251 
E254 
E257 
E25A 
E25D 
E25F 
E261 



A900 

20BDFF 

2011E2 

209EB7 

8649 

8A 

A201 

AOOO 

20BAFF 

2006E2 

2000E2 

864A 

AOOO 

A549 

E003 

9001 

88 

20BAFF 

2006E2 

2000E2 

8A 

A8 

A64A 

A549 

20BAFF 

2006E2 

200EE2 

209EAD 

20A3B6 

A622 

A423 

4CBDFF 



630 

631 

632 SE219 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 BE23F 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 SE257 

660 

661 

662 

663 



;get Open/Close parameters 



LDA $00 
JSR SFFBD 
JSR SE211 
JSR XB79E 
STX Z49 
TXA 

LDX $01 
LDY $00 
JSR SFFBA 
JSR SE206 
JSR SE200 
STX Z4A 
LDY $00 
LDA Z49 
CPX $03 
BCC BE23F 
DEY 

JSR SFFBA 
JSR SE206 
JSR SE200 
TXA 
TAY 

LDX Z4A 
LDA Z49 
JSR SFFBA 
JSR SE206 
JSR SE20E 
JSR XAD9E 
JSR XB6A3 
LDX Z22 
LDY Z23 
JMP SFFBD 



; assume no file name 

;set file name parameters 

; fetch current character 

;get next non-string value into X 

;save file number 

; assume device 1 

;and secondary address 

;set currrent file, device & sec. addr 

; fetch current character 

;skip comma and fetch integer value into X 

;save device number 

; secondary still 



;if device number > 3 

; secondary = $FF 

;set logical file, device & sec. addr 

;fetch current character 

;skip comma,] fetch integer value in X 

;set secondary address 

;restore device 

;and file 

;set logical file, device & sec. addr 

; fetch current character 

; check for and skip "," 

;evaluate expression 

; de-allocate temporary string 

;XY = address of file name 
;set file name parameters 
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665 


;"COS 


command 




666 


• 






E264 A9E0 


667 


WE264 


LDA 


<1E2E0 


E266 A0E2 


668 




LDY 


>TE2E0 


E268 2067B8 


669 




JSR XB867 




670 










671 


;"SIN 


' command 




672 








E26B 200CBC 


673 


SE26B 


JSR 


XBCOC 


E26E A9E5 


674 




LDA 


<TE2E5 


E270 A0E2 


675 




LDY 


>TE2E5 


E272 A66E 


676 




LDX 


Z6E 


E274 2007BB 


677 




JSR 


XBB07 


E277 200CBC 


678 




JSR 


XBCOC 


E27A 20CCBC 


679 




JSR 


XBCCC 


E27D A900 


680 




LDA 


$00 


E27F 856F 


681 




STA 


Z6F 


E281 2053B8 


682 




JSR 


XB853 


E284 A9EA 


683 




LDA 


<TE2EA 


E286 A0E2 


684 




LDY 


>TE2EA 


E288 2050B8 


685 




JSR 


XB850 


E28B A566 


686 




LDA 


Z66 


E28D 48 


687 




PHA 




E28E 100D 


688 




BPL 


BE29D 


E290 2049B8 


689 




JSR XB849 


E293 A566 


690 




LDA 


Z66 


E295 3009 


691 




BMI 


BE2A0 


E297 A512 


692 




LDA 


Z12 


E299 49FF 


693 




EOR 


$FF 


E29B 8512 


694 




STA 


Z12 


E29D 20B4BF 


695 


BE29D 


JSR 


XBFB4 


E2A0 A9EA 


696 


BE2A0 


LDA 


<TE2EA 


E2A2 A0E2 


697 




LDY 


>TE2EA 


E2A4 2067B8 


698 




JSR 


XB867 


E2A7 68 


699 




PLA 




E2A8 1003 


700 




BPL 


BE2AD 


E2AA 20B4BF 


701 




JSR 


XBFB4 


E2AD A9EF 


702 


BE2AD 


LDA 


<TE2EF 


E2AF A0E2 


703 




LDY 


>TE2EF 


E2B1 4C43EO 


704 




JMP 


JE043 



;set AY to point to 0.5 * PI 
;add to flp accu then do SIN 



;move rounded flp accu to 2nd flp accu 
;set AY to 2 * PI 

;get sign 

; divide flp accu by 2 * PI 

;move rounded flp accu to 2nd flp accu 

;call function INT 

;set XOR of signs to be the same 
; apply diadic operator "-" 
;set AY to point to 0.25 

; subtract flp accu from 0.25 

;flp accu # 1 - sign 

;save sign 

;if negative 

;do half rounding (add 0.5) 

;get sign 

;if positive, complement flag 



;apply monadic operator "-" 
;set AY to 0.25 

;add 0.25 to flp accu 
; restore original sign 
;if negative, 

; perform monadic "-" again 
;set AY to polynome table 

;go compute odd degrees 
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E2B4 
E2B7 
E2B9 
E2BB 
E2BE 
E2C0 
E2C2 
E2C5 
E2C7 
E2C9 
E2CC 
E2CE 
E2D0 
E2D2 
E2D5 
E2D7 
E2D9 



20CABB 

A900 

8512 

206BE2 

A24E 

AOOO 

20F6E0 

A957 

AOOO 

20A2BB 

A900 

8566 

A512 

20DCE2 

A94E 

AOOO 

4COFBB 



706 ;"TAN" command 

707 ; 

708 WE2B4 JSR XBBCA 



E2DC 48 
E2DD 4C9DE2 



E2E0 81490F 
E2E5 83490F 
E2EA 7F0000 
E2EF 05 
E2F0 84E61A 
E2F5 862807 
E2FA 879968 
E2FF 872335 
E304 86A55D 
E309 83490F 



; store flp accu at Z57-5B 



709 LDA $00 

710 STA Z12 

711 JSR SE26B 

712 LDX <Z4E 

713 LDY >Z4E 

714 JSR SE0F6 

715 LDA <Z57 

716 LDY >Z57 

717 JSR XBBA2 

718 LDA $00 

719 STA Z66 

720 LDA Z12 

721 JSR SE2DC 

722 LDA <Z4E 

723 LDY >Z4E 

724 JMP XBBOF 

725 ; 

726 SE2DC PHA 

727 JMP BE29D 
728 

;flp numbers for SIN, COS and TAN 



; clear sign flag 
; perform SIN 
;set AY to Z4E 

; store flp accu at Z4E 
;set AY to Z57 

;move flp accu there 

; clear sign of flp accu 
; fetch sign flag 
; compute COS of flp accu 
;set AY to Z4E 

; divide number at Z4E by flp accu, exit 
; compute COS of flp accu then return 



729 
730 
731 



732 TE2E0 .BY $81,$49,$0F,$DA,$A2 



733 



0.5 * PI 



2 * PI 



734 TE2E5 .BY $83,$49,$0F,$DA,$A2 

735 ;0.25 

736 TE2EA .BY $7F,$00,$00,$00,$00 

737 ; 

738 TE2EF .BY $05 ;polynome table for SIN 

739 ;-14. 3813907 

740 .BY $84,$E6,$1A,$2D,$1B 

741 ; 42.0077971 

742 .BY $86,$28,$07,$FB,$F8 

743 ;-76. 7041703 

744 .BY $87, $99, $68, $89, $01 

745 ; 81.6052237 

746 .BY $87,$23,$35,$DF,$E1 

747 ;-41. 3417021 

748 .BY $86,$A5,$5D,$E7,$28 

749 ; 6.28318531 

750 .BY $83,$49,$0F,$DA,$A2 
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E30E 


A566 


E310 


48 


E311 


1003 


E313 


20B4BF 


E316 


A561 


E318 


48 


E319 


C981 


E31B 


9007 


E31D 


A9BC 


E31F 


A0B9 


E321 


200FBB 


E324 


A93E 


E326 


A0E3 


E328 


204 3E0 


E32B 


68 


E32C 


C981 


E32E 


9007 


E330 


A9E0 


E332 


AOE2 


E334 


2050B8 


E337 


68 


E338 


1003 


E33A 


4CB4BF 


E33D 


60 



E33E 


OB 


782 
783 


E33F 


76B383 


784 
785 


E344 


791EF4 


786 
787 


E349 


7B83FC 


788 
789 


E34E 


7C0C1F 


790 
791 


E353 


7CDE53 


792 
793 


E358 


7D1464 


794 
795 


E35D 


7DB7EA 


796 
797 


E362 


7D6330 


798 
799 


E367 


7E9244 


800 
801 


E36C 


7E4CCC 


802 
803 


E371 


7FAAAA 


804 
805 


E376 


810000 


806 



752 ;"ATN" command 

753 ; 

754 WE30E LDA Z66 

755 PHA 

756 BPL BE316 

757 JSR XBFB4 

758 BE316 LDA Z61 

759 PHA 

760 CMP $81 

761 BCC BE324 

762 LDA <TB9BC 

763 LDY >TB9BC 

764 JSR XBBOF 

765 BE324 LDA <TE33E 

766 LDY >TE33E 

767 JSR JE043 

768 PLA 

769 CMP $81 

770 BCC BE337 

771 LDA <TE2E0 

772 LDY >TE2E0 

773 JSR XB850 

774 BE337 PLA 

775 BPL BE33D 

776 JMP XBFB4 
777 

778 BE33D RTS 
779 
780 
781 
782 TE33E .BY $0B 

-0.000684793912 

.BY $76,$B3,$83,$BD,$D3 
0.00485094216 

.BY $79,$IE,$F4,$A6,$F5 
-0.0131117018 

.BY $7B,$83,$FC,$B0,$10 
0.034209638 

.BY $7C,$0C,$1F,$67,$CA 
-0.0542791328 

.BY $7C,$DE,$53,$CB,$C1 
0.0724571965 

.BY $7D,$14,$64,$70,$4C 
-0.0898023954 

.BY $7D,$B7,$EA,$51,$7A 
0.110932413 

.BY $7D ) $63,$30,$88,$7E 
-0.142839808 

.BY $7E,$92,$44,$99,$3A 
0.19999912 

.BY $7E,$4C,$CC,$91,$C7 
-0.333333316 

.BY $7F,$AA,$AA,$AA,$13 
1 

.BY $81,$00,$00,$00,$00 



; save sign 

;lf negative, 

; apply monadic operator "-" 

;save exponent 
;lf => 1 

;let AY point to 1 

; divide 1 by flp accu 

;set AY to polynome table for ATN 

; compute odd degrees 

;if exponent "> 1 

;set AY to 0.5 * PI 

; subtract flp accu from 0.5 * PI 

;if sign negative 

;apply monadic operator "-" 



flp numbers for ATN 



13? 



E37B 20CCFF 
E37E A900 
E380 8513 
E382 207AA6 
E385 58 
E386 A280 
E388 6C0003 



E38B 8A 
E38C 3003 
E38E 4C3AA4 

E391 4C74A4 



E394 2053E4 
E397 20BFE3 
E39A 2022E4 
E39D A2FB 
E39F 9A 
E3A0 D0E4 



E3A2 
E3A4 
E3A6 
E3A8 
E3AB 
E3AD 
E3AF 
E3B1 
E3B3 
E3B4 
E3B6 
E3B7 
E3B9 



E67A 

D002 

E67B 

AD60EA 

C93A 

B00A 

C920 

FOEF 

38 

E930 

38 

E9D0 

60 



E3BA 804FC7 



808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 



warm start entry (stop/ restore) 

;close all files, set default devices 



JSR SFFCC 
LDA $00 
STA Z13 
JSR XA67A 
CLI 
BE386 LDX $80 

JMP (X0300) 



; clear CMD file number flag 

; reset pointers 

; allow IRQ 

; index default message READY 

; print message (normally E38B) 



handle error messages 



WE38B TXA 

BMI BE391 
JMP XA43A 

BE391 JMP XA474 

;RESET routine 

JSR SE453 

JSR SE3BF 

JSR SE422 

LDX $FB 

TXS 

BNE BE386 



;lf X < $80 

; print BASIC message 

;else print READY message 



jinitialize 0/S vectors 

; initialize BASIC interpreter 

; print BASIC start-up messages 

; initialize stack pointer 
; print message READY 



; character fetch code for page zero 0073-008F 



TE3A2 INC Z7A 

BNE BE3A8 
INC Z7B 

BE3A8 LDA BEA61-1 
CMP '9+1 
BCS BE3B9 
CMP $20 
BEQ TE3A2 
SEC 

SBC '0 
SEC 
SBC $D0 

BE3B9 RTS 



;bump character pointer (low) 

;if overflow, 

;bump character pointer (high) 

; fetch character from modified address 

;if above numerics 

; return with C = 1 (and Z = 1 if ":") 

;if character is a space, 

; ignore and get next character 

;if below numerics 

;return with C = 1 (and Z = 1 if $00) 

;if numeric, return with C = 

; return with flags set and char in A 



; first RND seed value 

.BY $80,$4F,$C7,$52,$58 
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855 


; Initialization for 




856 


; 




E3BF A94C 


857 


SE3BF LDA 


$4C 


E3C1 8554 


858 


STA 


Z54 


E3C3 8D1003 


859 


STA 


X0310 


E3C6 A948 


860 


LDA 


<WB248 


E3C8 A0B2 


861 


LDY 


>WB248 


E3CA 8D1103 


862 


STA 


X0311 


E3CD 8C1203 


863 


STY 


X0312 


E3D0 A991 


864 


LDA 


<WB391 


E3D2 A0B3 


865 


LDY 


>WB391 


E3D4 8505 


866 


STA 


Z05 


E3D6 8406 


867 


STY 


Z06 


E3D8 A9AA 


868 


LDA 


<WB1AA 


E3DA A0B1 


869 


LDY 


>WB1AA 


E3DC 8503 


870 


STA 


Z03 


E3DE 8404 


871 


STY 


Z04 


E3E0 A21C 


872 


LDX 


$1C 


E3E2 BDA2E3 


873 


BE3E2 LDA 


TE3A2.X 


E3E5 9573 


874 


STA 


Z73.X 


E3E7 CA 


875 


DEX 




E3E8 10F8 


876 


BPL 


BE3E2 


E3EA A903 


877 


LDA 


$03 


E3EC 8553 


878 


STA 


Z53 


E3EE A900 


879 


LDA 


$00 


E3F0 8568 


880 


STA 


Z68 


E3F2 851.3 


881 


STA 


Z13 


E3F4 8518 


882 


STA 


Z18 


E3F6 A201 


883 


LDX 


$01 


E3F8 8EFD01 


884 


SIX 


X01FD 


E3FB 8EFC01 


885 


STX 


X01FC 


E3FE A219 


886 


LDX 


$19 


E400 8616 


887 


STX 


Z16 


E402 38 


888 


SEC 




E403 209CFF 


889 


JSR 


SFF9C 


E406 862B 


890 


STX 


Z2B 


E408 842C 


891 


STY 


Z2C 


E40A 38 


892 


SEC 




E40B 2099FF 


893 


JSR 


SFF99 


E40E 8637 


894 


STX 


Z37 


E410 8438 


895 


STY 


Z38 


E412 8633 


896 


STX 


Z33 


E414 8434 


897 


STY 


Z34 


E416 AOOO 


898 


LDY 


$00 


E418 98 


899 


TYA 




E419 912B 


900 


STA 


(Z2B),Y 


E41B E62B 


901 


INC 


Z2B 


E41D D002 


902 


BNE 


BE421 


E41F E62C 


903 


INC 


Z2C 


E421 60 


904 


BE421 RTS 





BASIC interpreter 

;set JMP instruction 

;for functions 

;and USR vector 

;default USR jump address 

;( ILLEGAL QUANTITY Error) 

;set USR jump address, low byte 

;USR jump address, high byte 



;set fixed-float vector 
;& high byte 



;set float-fixed vector 
;& high byte 

;move character fetch code to $73-8A 
;and first RND seed into Z8B-Z8F 



;set default step 

; clear flp accu overflow area 

;set CMD file number to default 

; clear high of string descriptor index 



; prefix input buffer with dummy pointer 

;set pointer to temporary string stack 

'read bottom of memory address 
;to set BASIC bottom of memory 



;read top of memory address 
;to set BASIC memory limit 

;set string storage address 
;& high byte 



;move a to bottom of memory 
;add 1 to start of BASIC addres 

;& high byte upon overflow 
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E422 
E424 
E426 
E429 
E42B 
E42D 
E430 
E432 
E433 
E435 
E436 
E438 
E43A 
E43D 
E43F 
E441 
E444 



A52B 

A42C 

2008A4 

A973 

A0E4 

201EAB 

A537 

38 

E52B 

AA 

A538 

E52C 

20CDBD 

A960 

A0E4 

201EAB 

4C44A6 



E447 8BE3 
E449 83A4 
E44B 7CA5 
E44D 1AA7 
E44F E4A7 
E451 86AE 



E453 A20B 
E455 BD47E4 
E458 9D0003 
E45B CA 
E45C 10F7 
E45E 60 



E45F 
E460 
E471 
E473 
E479 
E487 
E493 
E49A 
E4AB 



00 

204241 

0D00 

930D20 

2A2A2A 

203634 

202A2A 

203634 

005C 



906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 



[print BASIC start-up messages 

;set AY to start of BASIC 



SE422 LDA Z2B 
LDY Z2C 
JSR XA408 
LDA <TE473 
LDY >TE473 
JSR XAB1E 
LDA Z37 
SEC 

SBC Z2B 
TAX 

LDA Z38 
SBC Z2C 
JSR XBDCD 
LDA <TE460 
LDY >TE460 
JSR XAB1E 
JMP XA644 



; perform array area overflow check 

j set AY to message COMMODORE 64 BASIC. 

jprint message 

;use limit of memory 

;- pointer to start of BASIC 

;& high bytes 

;to calculate bytes free 

; convert to string 

;set AY to message BYTES FREE 

; print # then BYTES FREE 
; perform NEW, print READY 



jvectors for $0300-$030B 



TE447 .W WE38B 

.W WA483 

.W WA57C 

.W WA71A 

.W WA7E4 

.W WAE86 



;error message vector 

;warm start vector 

;crunch BASIC tokens vector 

; print tokens vector 

; execute a statement vector 

;get arithmetic element vector 



; initialize vectors at $0300-$030B 



SE453 LDX $0B 
BE455 LDA TE447.X 

STA X0300.X 

DEX 

BPL BE455 

RTS 



; fetch a byte from table 
;and move it to vector area 

jrepeat until 6 vectors stored 



.BY $00 
TE460 .BY ' ,'B,'A,'S,'I,'C,' ,'B,'Y,'T,'E,'S,' ,'F,'R,'E,'E 

.BY $OD,$00 
TE473 .BY $93,$0D,' ,' ,' ,' 

.BY '*,'*,'*,'*,' ,'C,'0,'M,'M,'0,'D,'0,'R,'E 

.BY ' ,'6, '4,' ,'B,'A,'S,'I,'C,' ,'V,'2 

.BY ' ,'*,'*,'*,'*,$0D,$OD 

.BY ' ,'6,'4,'K,' ,'R,'A,'M,' ,'S,'Y,'S,'T,'E,'M,' ,' 

.BY $00,$5C 
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E4AD 48 
E4AE 20C9FF 
E4B1 AA 
E4B2 68 
E4B3 9001 
E4B5 8A 
E4B6 60 



E4B7 AAAAAA 
E4BF AAAAAA 
E4C7 AAAAAA 
E4CF AAAAAA 
E4D7 AAAAAA 



E4DA AD21D0 
E4DD 91F3 
E4DF 60 



E4E0 6902 
E4E2 A491 
E4E4 C8 
E4E5 D004 
E4E7 C5A1 
E4E9 D0F7 
E4EB 60 



954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 



;set output device (patch) 



SE4AD PHA 

JSR SFFC9 

TAX 

PLA 

BCC BE4B6 

TXA 
BE4B6 RTS 

> 

; unused area follows 



; perform actual open for output 

;save possible error code 

; restore entry accumulator 

;if an error encountered, 

; return with error number in A 



.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA 

; clear a byte in color RAM 

SE4DA LDA XD021 ;use background t color 
STA (ZF3),Y ;to clear color RAM 
RTS 

> 

;pause after finding a file on cassette 



SE4E0 ADC $02 
BE4E2 LDY Z91 
INY 

BNE BE4EB 
CMP ZA1 
BNE BE4E2 
BE4EB RTS 



;set maximum pause to 256 - 512 jiffies 
;check keyboard scan result 

;exit if a key depressed 

; repeat until delay complete 
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E4EC 1926 
E4EE 4419 
E4F0 1A11 
E4F2 E80D 
E4F4 700C 
E4F6 0606 
E4F8 D102 
E4FA 3701 
E4FC AE00 
E4FE 6900 



E500 A200 
E502 AODC 
E504 60 



E505 A228 
E507 A019 
E509 60 



E50A B007 
E50C 86D6 
E50E 84D3 
E510 206CE5 
E513 A6D6 
E515 A4D3 
E517 60 



988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 



;baud rate factor table for International machines 
;( (clock frequency/baud rate/2)-100) 



TE4EC 



.WO $2619 

.W0 $1944 

.WO $111A 

.WO $0DE8 

.WO $0C70 

.WO $0606 

.WO $02D1 

.WO $0137 

.WO $00AE 

.WO $0069 



50 baud 

75 

110 

134.5 

150 

300 

600 

1200 

1800 

2400 



read base address of I/O devices into XY 
; point to CIA1 in XY 



JE500 LDX $00 
LDY $DC 
RTS 



;read screen organization into XY 



JE505 LDX $28 
LDY $19 
RTS 



;# columns 
; # rows 



;read/set XY cursor position 



JE50A BCS BE513 
STX ZD6 
STY ZD3 
JSR SE56C 

BE513 LDX ZD6 
LDY ZD3 
RTS 



;if carry set, read cursor position 

;set cursor line # from X 

;set position of cursor on line from Y 

;set address of current screen line 

;read cursor line number into X 

;read position of cursor on line into Y 
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1024 


jinitlalize screi 




1025 


j 






E518 20A0E5 


1026 


SE518 


JSR 


SE5A0 


E51B A900 


1027 




LDA 


$00 


E51D 8D9102 


1028 




STA 


X0291 


E520 85CF 


1029 




STA 


ZCF 


E522 A948 


1030 




LDA 


<WEB48 


E524 8D8F02 


1031 




STA 


X028F 


E527 A9EB 


1032 




LDA 


>WEB48 


E529 8D9002 


1033 




STA 


X0290 


E52C A90A 


1034 




LDA $0A 


E52E 8D8902 


1035 




STA 


X0289 


E531 8D8C02 


1036 




STA 


X028C 


E534 A90E 


1037 




LDA 


$0E 


E536 8D8602 


1038 




STA 


X0286 


E539 A904 


1039 




LDA 


$04 


E53B 8D8B02 


1040 




STA 


X028B 


E53E A90C 


1041 




LDA 


$0C 


E540 85CD 


1042 




STA 


ZCD 


E542 85CC 


1043 




STA 


zee 


E544 AD8802 


1044 


SE544 


LDA 


X0288 


E547 0980 


1045 




ORA 


$80 


E549 A8 


1046 




TAY 




E54A A900 


1047 




LDA 


$00 


E54C AA 


1048 




TAX 




E54D 94D9 


1049 


BE54D 


STY 


ZD9.X 


E54F 18 


1050 




CLC 




E550 6928 


1051 




ADC 


$28 


E552 9001 


1052 




BCC 


BE555 


E554 C8 


1053 




INY 




E555 E8 


1054 


BE555 


I NX 




E556 E01A 


1055 




CPX 


$1A 


E558 D0F3 


1056 




BNE 


BE54D 


E55A A9FF 


1057 




LDA 


$FF 


E55C 95D9 


1058 




STA 


ZD9.X 


E55E A218 


1059 




LDX 


$18 


E560 20FFE9 


1060 


BE560 


JSR 


SE9FF 


E563 CA 


1061 




DEX 




E564 10FA 


1062 




BPL 


BE560 


E566 AOOO 


1063 


JE566 


LDY 


$00 


E568 84D3 


1064 




STY 


ZD3 


E56A 84D6 


1065 




STY 


ZD6 



and keyboard 

;initialize video chip, set default I/O 

; enable shift mode 

; clear cursor blink phase 

;set address of keyboard decode routine 

;& high byte 

;set maximum length of keyboard buffer 
;set repeat key delay counter 

;set current color code 

;set repeat key frequency counter 

;set cursor flash timer 

jdisable cursor flash 

; fetch screen memory start page 

;set bit 7 to indicate 40 tlii 3jrt 



; build screen line address table 



; repeat for 25 lines 



;line count - 1 
; clear a line 

;loop till screen cleared 

;cursor at position 
:and line 



145 





1067 


;set 


address of c 




1068 


» 






E56C A6D6 


1069 


SE56C 


LDX 


ZD6 


E56E A5D3 


1070 




LDA 


ZD3 


E570 B4D9 


1071 


BE570 


LDY 


ZD9.X 


E572 3008 


1072 




BttE 


BE57C 


E574 18 


1073 




CLC 




E575 6928 


1074 




ADC 


$28 


E577 85D3 


1075 




STA 


ZD3 


E579 CA 


1076 




DEX 




E57A 10F4 


1077 




BPL 


BE570 


E57C B5D9 


1078 


BE57C 


LDA 


ZD9.X 


E57E 2903 


1079 




AND 


$03 


E580 OD8802 


1080 




ORA 


X0288 


E583 85D2 


1081 




STA 


ZD2 


E585 BDFOEC 


1082 




LDA 


TECFO.X 


E588 85D1 


1083 




STA 


ZD1 


E58A A927 


1084 




LDA 


$27 


E58C E8 


1085 




I NX 




E58D B4D9 


1086 


BE58D 


LDY 


ZD9.X 


E58F 3006 


1087 




BMI 


BE597 


E591 18 


1088 




CLC 




E592 6928 


1089 




ADC 


$28 


E594 E8 


1090 




INX 




E595 10F6 


1091 




BPL 


BE58D 


E597 85D5 


1092 


BE597 


STA 


ZD5 


E599 60 


1093 
1094 




RTS 




E59A 20A0E5 


1095 




JSR 


SE5A0 


E59D 4C66E5 


1096 




JMP 


JE566 



;get cursor line number in X 

;and position of cursor on line in A 

; check screen line address table 

;if on an 80 character line, 

;add 40 to 

; position of cursor on line 

; point to preceeding line 

;and repeat if screen top not reached 

; fetch high byte of screen line address 

; strip 40/80 character line flag 

;add screen memory page 

;to set high of pointer to screen line 

;use line number and table of low bytes 

; to set low byte of ptr to screen line 

;set initial max length of current line 



;exit if on a 40 character line 

;else add 40 

;and repeat one time 

;save maximum length current line 

;not referenced!! 
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1098 




1099 


E5A0 A903 


1100 


E5A2 859A 


1101 


E5A4 A900 


1102 


E5A6 8599 


1103 


E5A8 A22F 


1104 


E5AA BDB8EC 


1105 


E5AD 9DFFCF 


1106 


E5B0 CA 


1107 


E5B1 D0F7 


1108 


E5B3 60 


1109 




1110 




1111 




1112 


E5B4 AC7702 


1113 


E5B7 A200 


1114 


E5B9 BD7802 


1115 


E5BC 9D7702 


1116 


E5BF E8 


1117 


E5C0 E4C6 


1118 


E5C2 D0F5 


1119 


E5C4 C6C6 


1120 


E5C6 98 


1121 


E5C7 58 


1122 


E5C8 18 


1123 


E5C9 60 


1124 



;set video chip to std values and I/O devices to default 



;set output device (screen) 
;set Input device (keyboard) 



SE5A0 LDA $03 

STA Z9A 

LDA $00 

STA Z99 

LDX $2F 
BE5AA LDA TECB9-1.X ;use standard table values to 

STA XD000-1.X initialize video chip 

DEX 

BNE BE5AA ; repeat to move all 47 values 

RTS 

f 

; fetch a character from keyboard buffer 

f 

SE5B4 LDY X0277 ;save bottom char of keyboard buffer 

LDX $00 
BE5B9 LDA X0277+1.X ;move keyboard queue down one 

STA X0277.X 



INX 

CPX ZC6 
BNE BE5B9 
DEC ZC6 
TYA 
CLI 
CLC 
RTS 



; check length of queue 

;loop until all moved 

; subtract one from length of queue 

; return with character in A 

; allow IRQ's again 

; clear error flag 
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E5CA 
E5CD 
E5CF 
E5D1 
E5D4 
E5D6 
E5D7 
E5D9 
E5DB 
E5DD 
E5E0 
E5E2 
E5E4 
E5E7 
E5EA 
E5EC 
E5EE 
E5F0 
E5F1 
E5F3 
E5F6 
E5F9 
E5FA 
E5FC 

E5FE 
E600 
E602 
E604 
E606 
E608 
E60A 
E60C 
E60D 
E60F 
E610 
E612 
E614 
E617 
E619 
E61B 
E61D 
E61F 
E621 
E624 
E626 
E628 
E62A 
E62C 
E62E 
E630 



2016E7 

A5C6 

85CC 

8D9202 

F0F7 

78 

A5CF 

FOOC 

A5CE 

AE8702 

AOOO 

84CF 

2013EA 

20B4E5 

C983 

DOIO 

A209 

78 

86C6 

BDE6EC 

9D7602 

CA 

DOF7 

FOCF 

C90D 

DOC8 

A4D5 

84DO 

B1D1 

C920 

D003 

88 

DOF7 

C8 

84C8 

AOOO 

8C9202 

84D3 

84D4 

A5C9 

301B 

A6D6 

20EDE6 

E4C9 

D012 

A5CA 

85D3 

C5C8 

900A 

B02B 



11.26 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 



;wait for a Return from keyboard 



BE5CA JSR 

BE5CD LDA 
STA 
STA 
BEQ 
SEI 
LDA 
BEQ 
LDA 
LDX 
LDY 
STY 
JSR 

BE5E7 JSR 
CMP 
BNE 
LDX 
SEI 
STX 

BE5F3 LDA 
STA 
DEX 
BNE 
BEQ 

BE5FE CMP 
BNE 
LDY 
STY 

BE606 LDA 
CMP 
BNE 
DEY 
BNE 

BE60F 1NY 
STY 
LDY 
STY 
STY 
STY 
LDA 
BMI 
LDX 
JSR 
CPX 
BNE 
LDA 
STA 
CMP 
BCC 
BCS 



SE716 

ZC6 

ZCC 

X0292 

BE5CD 

ZCF 

BE5E7 

ZCE 

X0287 

$00 

ZCF 

SEA13 

SE5B4 

$83 

BE5FE 

$09 

ZC6 

TECE7--1.X 

X0277-1.X 

BE5F3 
BE5CD 

$0D 

BE5CA 

ZD5 

ZDO 

(ZDl),Y 

$20 

BE60F 

BE606 

ZC8 

$00 

X0292 

ZD3 

ZD4 

ZC9 

BE63A 

ZD6 

SE6ED 

ZC9 

BE63A 

ZCA 

ZD3 

ZC8 

BE63A 

BE65D 



;echo character on screen 

;move keyboard count 

;to cursor enable flag (00=flash) 

;and auto scroll down flag 

;loop until something arrives from kbd 

;if cursor blink phase 1 

;get character under cursor 

;& color of character under cursor 

; clear cursor blink phase 

; store character on screen 

; fetch a character from the keyboard buffer 

;check for shift of Run/Stop key 

;if so, set count for move 

; force keyboard buffer count 

;move "Load/Run" into keyboard buffer 



; repeat until all characters moved 
;go get first char from forced string 

;if Return, 

;move screen line length 

;to save area 

; check for blanks at end of line 



; and remove them 



;set end of line pointer for input 

; enable auto scroll flag 

;set position of cursor on line 

; clear string flag 

;get saved screen line number 

'.if valid 

;and equal to original 



;set char position to original value 
;if char position is past end of line, 
;get character from screen 
;else exit with a return 
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1180 


;get i 


character fr< 






1181 


; 






E632 


98 


1182 


JE632 


TYA 




E633 


48 


1183 




PHA 




E634 


8A 


1184 




TXA 




E635 


48 


1185 




PHA 




E636 


A5D0 


1186 




LDA 


ZDO 


E638 


F093 


1187 
1188 




BEQ 


BE5CD 






1189 


;get - 


character fri 






1190 


; 






E63A 


A4D3 


1191 


BE63A 


LDY 


ZD3 


E63C 


B1D1 


1192 




LDA 


(ZD1),Y 


E63E 


85D7 


1193 




STA 


ZD7 


E640 


293F 


1194 




AND 


$3F 


E642 


06D7 


1195 




ASL 


ZD7 


E644 


24D7 


1196 




BIT 


ZD7 


E646 


1002 


1197 




BPL 


BE64A 


E648 


0980 


1198 




ORA 


$80 


E64A 


9004 


1199 


BE64A 


BCC 


BE650 


E64C 


A6D4 


1200 




LDX 


ZD4 


E64E 


D004 


1201 




BNE 


BE654 


E650 


7002 


1202 


BE650 


BVS 


BE654 


E652 


0940 


1203 




ORA 


$40 


E654 


E6D3 


1204 


BE654 


INC 


ZD3 


E656 


2084E6 


1205 




JSR 


SE684 


E659 


C4C8 


1206 




CPY 


ZC8 


E65B 


D017 


1207 




BNE 


BE674 


E65D 


A900 


1208 


BE65D 


LDA 


$00 


E65F 


85D0 


1209 




STA 


ZDO 


E661 


A90D 


1210 




LDA 


$0D 


E663 


A699 


1211 




LDX 


Z99 


,E665 


E003 


1212 




CPX 


$03 


E667 


F006 


1213 




BEQ 


BE66F 


E669 


A69A 


1214 




LDX 


Z9A 


E66B 


E003 


1215 




CPX 


$03 


E66D 


F003 


1216 




BEQ 


BE672 


E66F 


2016E7 


1217 


BE66F 


JSR 


SE716 


E672 


A90D 


1218 


BE672 


LDA 


$0D 


E674 


85D7 


1219 


BE674 


STA 


ZD7 


E676 


68 


1220 




PLA 




E677 


AA 


1221 




TAX 




E678 


68 


1222 




PLA 




E679 


A8 


1223 




TAY 




E67A 


A5D7 


1224 




LDA 


ZD7 


E67C 


C9DE 


1225 




CMP 


$DE 


E67E 


DO 02 


1226 




BNE 


BE682 


E680 


A9FF 


1227 




LDA 


$FF 


E682 


18 


1228 


BE682 


CLC 




E683 


60 


1229 




RTS 





or 3 (keyboard or screen) 



;save XY on stack 

;test saved screen line length 
;if zero, wait for return 



;get position of cursor on current line 

;then current screen character 

;and save it 

;save low order 6 bits 

;if bit 6 is set in original 



;set bit 7 in converted character 

;if bit 7 is set in original 

;and in a string 

;then don't change bit 6 

;if bit 5 is clear in original 

;set bit 6 in converted character 

; increment position of cursor on line 

; check for a quote 

;if end of line reached 



;clear copy of screen line length 
; force a Return 

;if input device is 3 (screen) 
;echo character on screen 

;if output device is screen 
;replace character with a Return 
;echo character on screen 
jreplace character with a Return 
;and save as last character 



; restore XY 

;if character is PI 

; return with code for Pi 
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E684 C922 
E686 D008 
E688 A5D4 
E68A 4901 
E68C 85D4 
E68E A922 
E690 60 



E691 
E693 
E695 
E697 
E699 
E69B 
E69D 
E69F 
E6A2 
E6A5 



E6A8 
E6A9 
E6AA 
E6AC 
E6AE 
E6E0 
E6E1 
E6B2 
E6B3 
E6B4 
E6E5 



0940 

A6C7 

F002 

0980 

A6D8 

F002 

C6L>8 

AE8602 

2013EA 

20B6E6 



68 

A8 

A5D8 

F002 

46L4 

68 

AA 

68 

18 

58 

60 



1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 



check for a quote mark and set flag 

; if character is a quote 



SE684 CUP '" 

BHE BE690 
LDA ZD4 
EOR $01 
STA ZD4 
LDA '" 

BE690 RTS 



; complement string flag 
;and restore quote code in A 



fill screen at current position 



JE691 ORA $40 
JE693 LDX ZC7 

BEQ BE699 
JE697 ORA $80 
BE699 LDX ZD8 

BEQ BE69F 
DEC ZD8 
BE69F LDX X0286 
JSR SEA13 
JSR SE6B6 



;map shifted characters 
; if reverse switch is on 

;add reverse video bit 
; if any pending inserts 

; decrement pending inserts count 
; fetch current color code 
;add character to screen 
; get/insert new line 



; return from output to the screen 



BE6A8 PLA 

TAY 

LDA ZD8 

BEQ BE6B0 

LSR ZD4 
BE6B0 PLA 

TAX 

PLA 

CLC 

CLI 

RTS 



; if any pending inserts, 
; reset string mode flag 
; restore XA 

; allow IRQ's 
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1268 


;get/ 


insert new 




1269 


» 






E6B6 20B3E8 


1270 


SE6B6 


JSR 


SE8B3 


E6B9 E6D3 


1271 




INC 


ZD3 


E6BB A5D5 


1272 




LDA 


ZD5 


E6BD C5D3 


1273 




CMP 


ZD3 


E6BF B03F 


1274 




BCS 


BE700 


E6C1 C94F 


1275 




CMP 


$4F 


E6C3 F032 


1276 




BEQ 


BE6F7 


E6C5 AD9202 


1277 




LDA 


X0292 


E6C8 F003 


1278 




BEQ 


BE6CD 


E6CA 4C67E9 


1279 
1280 


. 


JMP 


JE967 


E6CD A6D6 


1281 


BE6CD 


LDX 


ZD6 


E6CF E019 


1282 




CPX 


$19 


E6D1 9007 


1283 




BCC 


BE6DA 


E6D3 20EAE8 


1284 




JSR 


SE8EA 


E6D6 C6D6 


1285 




DEC 


ZD6 


E6D8 A6D6 


1286 




LDX 


ZD6 


E6DA 16D9 


1287 


BE6DA 


ASL 


ZD9.X 


E6DC 56D9 


1288 




LSR 


ZD9.X 


E6DE E8 


1289 




INX 




E6DF B5D9 


1290 




LDA 


ZD9.X 


E6E1 0980 


1291 




ORA 


$80 


E6E3 95D9 


1292 




STA 


ZD9.X 


E6E5 CA 


1293 




DEX 




E6E6 A5D5 


1294 




LDA 


ZD5 


E6E8 18 


1295 




CLC 




E6E9 6928 


1296 




ADC 


$28 


E6EB 85D5 


1297 




STA 


ZD5 


E6ED B5D9 


1298 


SE6ED 


LDA 


ZD9.X 


E6EF 3003 


1299 




BMI 


BE6F4 


E6F1 CA 


1300 




DEX 




E6F2 D0F9 


1301 




BNE 


SE6ED 


E6F4 4CF0E9 


1302 
1303 


BE6F4 


JMP 


SE9F0 


E6F7 C6D6 


1304 


BE6F7 


DEC 


ZD6 


E6F9 207CE8 


1305 




JSR 


SE87C 


E6FC A900 


1306 




LDA 


$00 


E6FE 85D3 


1307 




STA 


ZD3 


E700 60 


1308 
1309 


BE700 


RTS 






1310 


;move 


backwards 




1311 


> 






E701 A6D6 


1312 


SE701 


LDX 


ZD6 


E703 D006 


1313 




BNE 


BE 7 OB 


E705 86D3 


1314 




SIX 


ZD3 


E707 68 


1315 




PLA 




E708 68 


1316 




PLA 




E709 D09D 


1317 




BNE 


BE6A8 


E70B CA 


1318 


BE70B 


DEX 




E70C 86D6 


1319 




STX 


ZD6 


E70E 206CE5 


1320 




JSR SE56C 


E711 A4D5 


1321 




LDY 


ZD5 


E713 84D3 


1322 




STY 


ZD3 


E715 60 


1323 




RTS 





; check for end of a screen line 
; advance cursor position 

;if beyond maximum position, 

;exit 

;if not at 79 

;and in auto scroll mode 

;continue 

;else insert a blank line in screen RAM 

;if in auto scroll mode 
;and cursor is on line 25 

; scroll screen 

; subtract 1 from cursor line # 

;set an 80 character line 



;set following line to 40 characters 



;add 40 to line length of current line 



;if current line is not 80 char line 

; decrement line count 

;and repeat 

;reset screen line address and return 

; decrement cursor line # 
;set next line number 

;set cursor position on line to 



;if at top of screen 

;set cursor position to line 

; remove own return address 

j and exit 

;else back up one line 

;set address of current screen line 
;move line length of current line 
;to position of cursor on line 
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E716 
E717 
E719 
E71A 
E71B 
E71C 
E71D 
E71F 
E721 
E723 
E725 
E727 



48 

85D7 

8A 

48 

98 

48 

A900 

85D0 

A4D3 

A5D7 

1003 

4CD4E7 



E72A C90D 
E72C D003 
E72E 4C91E8 



E731 
E733 
E735 
E737 
E739 
E73B 
E73D 
E73F 
E742 



C920 

9010 

C960 

9004 

29DF 

D002 

293F 

2084E6 

4C93E6 



E745 A6D8 
E747 F003 
E749 4C97E6 

E74C C914 
E74E D02E 
E750 98 
E751 D006 
E753 2001E7 
E756 4C73E7 



E759 
E75C 
E75D 
E75F 
E762 
E763 
E765 
E766 
E768 
E769 
E76B 
E76C 
E76E 
E76F 
E771 
E773 
E775 
E777 
E77A 
E77C 



20A1E8 

88 

84D3 

2024EA 

C8 

B1D1 

88 

91D1 

C8 

B1F3 

88 

91F3 

C8 

C4D5 

DOEF 

A920 

91D1 

AD8602 

91F3 

104D 



1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 



;put a character to screen (device 3) 
SE716 



PHA 
STA ZD7 
TXA 
PHA 
TYA 
PHA 

LDA $00 
STA ZDO 
LDY ZD3 
LDA ZD7 
BPL BE72A 
JMP JE7D4 

CMP $0D 
BNE BE731 
JMP JE891 

CMP $20 
BCC BE745 
CMP $60 
BCC BE73D 
AND $DF 
BNE BE73F 
AND $3F 
JSR SE684 
JMP JE693 

LDX ZD8 
BEQ BE74C 
JMP JE697 

CMP $14 

BNE BE77E 

TYA 

BNE BE759 

JSR SE701 

JMP JE773 



BE759 JSR SE8A1 
DEY 

STY ZD3 
JSR SEA24 

BE762 INY 

LDA (ZD1),Y 

DEY 

STA (ZD1),Y 

INY 

LDA (ZF3),Y 

DEY 

STA (ZF3),Y 

INY 

CPY ZD5 

BNE BE762 

JE773 LDA $20 

STA (ZD1),Y 
LDA X0286 
STA (ZF3),Y 
BPL BE7CB 



BE72A 



BE731 



BE73D 
BE73F 



BE745 



BE74C 



;save character on stack 
;and in temporary field 



;save XY 

;set saved screen line length to 
;get character position 
;and character 

;if shifted character, skip following 

;if Return 

jperform Return function 

;if printable character 



;and not a space 
;map to screen code 
; check for a quote 
;and fill screen 

;if non-printable 
;and inserts pending 
;do not use code 

;if Delete code 



;and not beyond left margin 

;go backwards over line boundary 

; insert a blank 

; check for cursor at line beginning 

; adjust cursor position on line 
;set color memory address 

; compress screen line 



;and color memory 



;up to end of line 

;and insert blank 

;at end 

; insert current color code 

;in color memory 
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E77E A6D4 
E780 F003 
E782 4C97E6 



E785 
E787 
E789 
E78B 
E78D 
E78F 
E792 
E794 
E796 
E797 
E79A 
E79C 
E79D 
E79F 
E7A1 
E7A3 
E7A6 
E7A8 
E7AA 

E7AD 
E7AF 
E7B1 
E7B2 
E7B3 
E7B5 
E7B6 
E7B8 
E7BA 
E7BC 
E7BE 
E7C0 
E7C2 
E7C4 
E7C6 
E7C8 
E7CB 



C912 

D002 

85C7 

C913 

D003 

2066E5 

C91D 

D017 

C8 

20B3E8 

84D3 

88 

C4D5 

9009 

C6D6 

207CE8 

A000 

84D3 

4CA8E6 

C911 

D01D 

18 

98 

6928 

A8 

E6D6 

C5D5 

90EC 

FOEA 

C6D6 

E928 

9004 

85D3 

D0F8 

207CE8 

4CA8E6 



E7CE 20CBE8 
E7D1 4C44EC 



1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 



BE77E LDX ZD4 

BEQ BE785 
JMP JE697 



BE785 CMP 
BNE 
STA 

BE78B CMP 
BNE 
JSR 

BE792 CMP 
BNE 
INY 
JSR 
STY 
DEY 
CPY 
BCC 
DEC 
JSR 
LDY 

BE7A8 STY 

BE7AA JMP 

BE7AD CMP 
BNE 
CLC 
TYA 
ADC 
TAY 
INC 
CMP 
BCC 
BEQ 
DEC 

BE7C0 SBC 
BCC 
STA 
BNE 

BE7C8 JSR 

BE7CB JMP 



$12 

BE78B 

ZC7 

$13 

BE792 

JE566 

$1D 

BE7AD 

SE8B3 
ZD3 

ZD5 

BE7AA 

ZD6 

SE87C 

$00 

ZD3 

BE6A8 

$11 
BE7CE 



$28 

ZD6 

ZD5 

BE7A8 

BE7A8 

ZD6 

$28 

BE7C8 

ZD3 

BE7C0 

SE87C 

BE6A8 



BE7CE JSR SE8CB 
JMP JEC44 



;lf in string mode 

;don't use control functions 



;lf Reverse key 

;set reverse video switch 
;if Home key 

;re-initialize cursor position 
;if Cursor Right 



; increment character position 



;if at line end 

; decrement cursor line number 
;go to next line 

;set position of cursor on line 
;and exit 

:if Cursor Down 



; advance 40 positions 

; increment cursor line number 
;if not beyond line end 

;exit 

;else back up one line 

; decrease character position by 40 

;exit if underflow 

;else reset position of cursor on line 

;set next line number 
;exit 

; check for a color code 

; check for special CHR$ codes, return 
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1430 


;put 


shifted char 




1431 


; 




E7D4 297F 


1432 


JE7D4 AND $7F 


E7D6 C97F 


1433 




CMP $7F 


E7D8 D002 


1434 




BNE BE 7 DC 


E7DA A95E 


1435 




LDA $5E 


E7DC C920 


1436 


BE7DC CMP $20 


E7DE 9003 


1437 




BCC BE7E3 


E7E0 4C91E6 


> 1438 
1439 




JMP JE691 


E7E3 C90D 


1440 


BE7E3 


1 CMP $0D 


E7E5 D003 


1441 




BNE BE7EA 


E7E7 4CS1E8 


i 1442 
1443 




JMP JE891 


E7EA A6D4 


1444 


BE7EA LDX ZD4 


E7EC D03F 


1445 




BHE BE82D 


E7EE C914 


1446 




CMP $14 


E7F0 D037 


1447 




BNE BE829 


E7F2 A4D5 


1443 




LDY ZD5 


E7F4 B1D1 


1449 




LDA (ZD1),Y 


E7F6 C920 


1450 




CMP $20 


E7F8 D004 


1451 




BNE BE7FE 


E7FA C4D3 


1452 




CPY ZD3 


E7FC D007 


1453 




BNE BE805 


E7FE C04F 


1454 


BE7FE 


CPY $4F 


E800 F024 


1455 




BEQ BE826 


E802 2065E9 


1456 




JSR SE965 


E805 A4D5 


1457 


BE805 


LDY ZD5 


E807 2024EA 


1458 




JSR SEA24 


E80A 88 


1459 


BE80A DEY 


E80B B1D1 


1460 




LDA (ZD1),Y 


E80D C8 


1461 




INY 


E80E 91D1 


1462 




STA (ZD1),Y 


E810 88 


1463 




DEY 


E811 B1F3 


1464 




LDA (ZF3),Y 


E813 C8 


1465 




INY 


E814 91F3 


1466 




STA (ZF3),Y 


ES16 88 


1467 




DEY 


E817 C4D3 


1468 




CPY ZD3 


E819 DOEF 


1469 




BNE BE80A 


E81B A920 


1470 




LDA $20 


E81D 91D1 


1471 




STA (ZD1),Y 


E81F AD8602 


1472 




LDA X0286 


E822 91F3 


1473 




STA (ZF3),Y 


E824 E6D8 


1474 




INC ZD8 


E826 4CA8E6 


1475 
1476 


BE826 


JMP BE6A8 


E829 A6D8 


1477 . 


BE829 


LDX ZD8 


E82B F005 


1478 




BEQ BE832 


E82D 0940 


1479 ; 


BE82D 


ORA $40 


E82F 4C97E6" 


1480 
1481 




JMP JE697 


E832 C911 


1482 1 


BE832 


CMP $11 


E834 DO 16 


1483 




BNE BE84C 


E836 A6D6 


1484 




LDX ZD6 


E838 F037 


1485 




BEQ BE871 


E83A C6D6 


1486 




DEC ZD6 


E83C A5D3 


1487 




LDA ZC3 


E83E 38 


1488 




SEC 


E83F E928 


1489 




SBC $28 



; remove shift bit 
;if code for PI 

; set screen code for PI 
; if printable 

;go fill screen 

;if shifted Return 

;do Return function 

; if in string mode 

;do not perform control functions 

; if Insert key 



;and last character of line is a blank 

;and not also current char position 

; then enough space on this line 

; if last character of line not blank 

;and 80 character line, ignore 

; else insert a blank line in screen RAM 

;get new maximum character position 

; set color memory address 

; f rom new maximum character position 

;move characters 

; towards end of line 

; plus color memory 



;up to current position 



; insert a blank 

; insert current color in color memory 
;add 1 to pending inserts count 
; and exi t 

; if any pending inserts 

;add screen shift bit 
;go fill screen 



; if Cursor Up key 



;and cursor not on top screen line 
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E841 
E843 
E845 
E847 
E84A 
E84C 
E84E 
E850 
E852 
E854 
E856 
E858 
E859 
E85B 
E85E 
E85F 
E861 



9004 

85D3 

102A 

206CE5 

D025 

C912 

D004 

A900 

85C7 

C91D 

D012 

98 

F009 

20A1E8 

88 

84D3 

4CA8E6 



E864 2001E7 
E867 4CA8E6 

E86A C913 
E86C D006 
E86E 2044E5 
E871 4CA8E6 

E874 0980 
E876 20CBE8 
E879 4C4FEC 



E87C 
E87E 
E880 
E881 
E883 
E885 
E888 
E88A 
E88C 
E88E 



46C9 

A6D6 

E8 

E019 

D003 

20EAE8 

B5D9 

10F4 

86D6 

4C6CE5 



1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 



BCC 
STA 
BPL 

BE847 JSR 
BNE 

BE84C CMP 
BNE 
LDA 
STA 

BE854 CMP 
BNE 
TYA 
BEQ 
JSR 
DEY 
STY 
JMP 



BE847 

ZD3 

BE871 

SE56C 

BE871 

$12 

BE854 

$00 

ZC7 

$1D 

BE86A 

BE864 
SE8A1 

ZD3 
BE6A8 



BE864 JSR SE701 
JMP BE6A8 

BE86A CMP $13 

BNE BE874 
JSR SE544 

BE871 JMP BE6A8 

BE874 ORA $80 

JSR SE8CB 
JMP JEC4F 



;and current cursor position >= 40 

; decrease count by 40 

;and exit 

;set address of current screen line 

;if Reverse Off key 



; clear reverse video switch 
;if Cursor Left 



;and cursor not beyond left margin, 
;check for left edge of a screen line 
;back up cursor one position 
;and set cursor to new position 
;and exit 

;go backwards over line boundary 
;and exit 

;if CLR key 

;re-initialize screen 
;and exit 

; restore code to original value 

;check for a color change keystroke 

; check for special CHR$ values and return 



;set next line number 

SE87C LSR ZC9 ;set saved line # on screen invalid 

LDX ZD6 ;get current line number 

BE880 INX ;and increment it 

CPX $19 ;if at end of screen 

BNE BE888 

JSR SE8EA ; scroll screen 

BE888 LDA ZD9.X ;if 80 character line, 

BPL BE880 ; repeat 

STX ZD6 ; store new line number 

JMP SE56C ;set addr of current screen line and 
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E891 A200 
E893 86D8 
E895 86C7 
E897 86D4 
E899 86D3 
E89B 207CE8 
E89E 4CA8E6 



E8A1 
E8A3 
E8A5 
E8A7 
E8A9 
E8AA 
E8AC 
E8AD 
E8AF 



A202 

A900 

C5D3 

F007 

18 

6928 

CA 

D0F6 

60 



E8B0 C6D6 
E8B2 60 



E8B3 A202 
E8B5 A927 
E8B7 C5D3 
E8B9 F007 
E8BB 18 
E8BC 6928 
E8BE CA 
E8BF D0F6 
E8C1 60 

E8C2 A6D6 
E8C4 E019 
E8C6 F002 
E8C8 E6D6 
E8CA 60 



E8CB A20F 
E8CD DDDAE8 
E8D0 F004 
E8D2 CA 
E8D3 10F8 
E8D5 60 

E8D6 8E8602 
E8D9 60 

E8DA 

E8DA 9005 1C 

E8E2 819596 



1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 



;action for Return 

JE891 LDX $00 
SIX ZD8 
STX ZC7 
STX ZD4 
STX ZD3 
JSR SE87C 
JMP BE6A8 



; clear pending inserts count 

;reset reverse video switch 

; reset string flag 

;set cursor to position on line 

;set next line number 

;and exit 



;move cursor to previous line if at start of a screen line 



SE8A1 LDX $02 

LDA $00 
BE8A5 CMP ZD3 

BEQ BE8B0 

CLC 

ADC $28 

DEX 

BNE BE8A5 

RTS 

BE8B0 DEC ZD6 
RTS 



;if cursor is not 

;at the left edge of a screen line, 



;set A for next left 

;and repeat a maximum of 2 times 



; since cursor at left edge, 
;move cursor to previous line 



;move cursor to next line if at end of a screen line 



SE8B3 LDX $02 

LDA $27 
BE8B7 CMP ZD3 

BEQ BE8C2 

CLC 

ADC $28 

DEX 

BNE BE8B7 

RTS 

BE8C2 LDX ZD6 
CPX $19 
BEQ BE8CA 
INC ZD6 

BE8CA RTS 



;if cursor is not at the end of a line 

; point to next end of screen line 
;and repeat a maximum of 2 times 

; since cursor at right edge, 



;add 1 to cursor line number 

;if cursor not on last screen line 



; check for a color change keystroke 

; compare keystroke to color codes 

;repeat for all 16 codes 

;set current color code upon a match 



SE8CB LDX $0F 
BE8CD CMP TE8DA.X 

BEQ BE8D6 

DEX 

BPL BE8CD 

RTS 



BE8D6 STX X0236 
RTS 



TE8DA - * ; color codes 

.BY $90,$05,$1C,$9F,$9C,$1E,$1F,$9E 
.BY $81,$95,$96,$97,$98,$99,$9A,$9B 
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1592 


;scro: 


11 screen 




1593 


j 






E8EA A5AC 


1594 


SE8EA 


LDA 


ZAC 


E8EC 48 


1595 




PHA 




E8ED A5AD 


1596 




LDA 


ZAD 


E8EF 48 


1597 




PHA 




E8F0 A5AE 


1598 




LDA 


ZAE 


E8F2 48 


1599 




PHA 




E8F3 A5AF 


1600 




LDA 


ZAF 


E8F5 48 


1601 




PHA 




E8F6 A2FF 


1602 


BE8F6 


LDX 


$FF 


E8F8 C6D6 


1603 




DEC 


ZD6 


E8FA C6C9 


1604 




DEC 


ZC9 


E8FC CEA502 


1605 




DEC 


X02A5 


E8FF E8 


1606 


BE8FF 


INX 




E900 20F0E9 


1607 




JSR 


SE9F0 


E903 E018 


1608 




CPX 


$18 


E905 BOOC 


1609 




BCS 


BE913 


E907 BDF1EC 


1610 




LDA 


TECFO+l.X 


E90A 85AC 


1611 




STA 


ZAC 


E90C B5DA 


1612 




LDA 


ZDA.X 


E90E 20C8E9 


1613 




JSR SE9C8 


E911 30EC 


1614 




BMI 


BE8FF 


E913 20FFE9 


1615 


BE913 


JSR 


SE9FF 


E916 A200 


1616 




LDX 


$00 


E918 B5D9 


1617 


BE918 


LDA 


ZD9.X 


E91A 297F 


1618 




AND 


$7F 


E91C B4DA 


1619 




LDY 


ZDA.X 


E91E 1002 


1620 




BPL 


BE922 


E920 0980 


1621 




ORA $80 


E922 95D9 


1622 


BE922 


STA 


ZD9.X 


E924 E8 


1623 




INX 




E925 E018 


1624 




CPX 


$18 


E927 DOEF 


1625 




BNE 


BE918 


E929 A5F1 


1626 




LDA 


ZF1 


E92B 0980 


1627 




ORA $80 


E92D 85F1 


1628 




STA 


ZF1 


E92F A5D9 


1629 




LDA 


ZD9 


E931 10C3 


1630 




BPL 


BE8F6 


E933 E6D6 


1631 




INC 


ZD6 


E935 EEA502 


1632 




INC 


X02A5 


E938 A97F 


1633 




LDA $7F 


E93A 8D00DC 


1634 




STA 


XDCOO 


E93D AD01DC 


1635 




LDA 


XDC01 


E940 C9FB 


1636 




CMP 


$FB 


E942 08 


1637 




PHP 




E943 A97F 


1638 




LDA 


$7F 


E945 8D00DC 


1639 




STA 


XDCOO 


E948 28 


1640 




PLP 




E949 DOOB 


1641 




BNE 


BE956 


E94B AOOO 


1642 




LDY $00 


E94D EA 


1643 


BE94D 


NOP 




E94E CA 


1644 




DEX 




E94F DOFC 


1645 




BNE 


BE94D 


E951 88 


1646 




DEY 




E952 D0F9 


1647 




BNE 


BE94D 


E954 84C6 


1648 




STY 


ZC6 


E956 A6D6 


1649 


BE956 LDX 


ZD6 


E958 68 


1650 


JE958 


i PLA 




E959 85AF 


1651 




STA 


ZAF 



;save I/O pointers on stack 



; initialize line pointer 

;move cursor to previous line 

;also input cursor 

;and position of first 40 char line 

;set screen address 

;if 24 lines not moved up, 

;use screen line address table 

;to set next source address 

;high byte also 

;move one line up 

;and repeat 

: clear last screen line 



;set a line to 80 character 
;if next line is 80 characters 

;set to 40 clcisctti lire 



;repeat until bottom of screen reached 
;set bottom line to 40 character 



;if top line is 80 characters, 
;then scroll up again 
jelse add 1 to cursor line number 
;and position of first 40 char line 



;if CTRL key is depressed, 



; delay to slow scrolling down 



; clear keyboard buffer count 
;put cursor line number in X 

;restore I/O area from stack 
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E95B 68 


1652 




PLA 


E95C 85AE 


1653 




STA ZAE 


E95E 68 


1654 




PLA 


E95F 85AD 


1655 




STA ZAD 


E961 68 


1656 




PLA 


E962 85AC 


1657 




STA ZAC 


E964 60 


1658 
1659 


» 


RTS 




1660 


; insert a blank 




1661 


» 




E965 A6D6 


1662 


SE965 LDX ZD6 


E967 E8 


1663 


JE96? INX 


E968 B5D9 


1664 




LDA ZD9.X 


E96A 10FB 


1665 




BPL JE967 


E96C 8EA502 


1666 




STX X02A5 


E96F E018 


1667 




CPX $18 


E971 FOOE 


1668 




BEQ BE981 


E973 900C 


1669 




BCC BE981 


E975 20EAE8 


1670 




JSR SE8EA 


E978 AEA502 


1671 




LDX X02A5 


E97B CA 


1672 




DEX 


E97C C6D6 


1673 




DEC ZD6 


E97E 4CDAE6 


1674 
1675 


» 


JMP BE6DA 


E981 A5AC 


1676 


BE981 


LDA ZAC 


E983 48 


1677 




PHA 


E984 A5AD 


1678 




LDA ZAD 


E986 48 


1679 




PHA 


E987 A5AE 


1680 




LDA ZAE 


E989 48 


1681 




PHA 


E98A A5AF 


1682 




LDA ZAF 


E98C 48 


1683 




PHA 


E98D A219 


1684 




LDX $19 


E98F CA 


1685 


BE98F 


DEX 


E990 20F0E9 


1686 




JSR SE9F0 


E993 ECA502 


1687 




CPX X02A5 


E996 900E 


1688 




BCC BE9A6 


E998 FOOC 


1689 




BEQ BE9A6 


E99A BDEFEC 


1690 




LDA TECFO- 


E99D 85AC 


1691 




STA ZAC 


E99F B5D8 


1692 




LDA ZD8.X 


E9A1 20C8E9 


1693 




JSR SE9C8 


E9A4 30E9 


1694 




BMI BE98F 


E9A6 20FFE9 


1695 ! 


BE9A6 


JSR SE9FF 


E9A9 A217 


1696 




LDX $17 


E9AB ECA502 


1697 1 


BE9AB 


CPX X02A5 


E9AE 900F 


1698 




BCC BE9BF 


E9B0 B5DA 


1699 




LDA ZDA.X 


E9B2 297F 


1700 




AND $7F 


E9B4 B4D9 


1701 




LDY ZD9.X 


E9B6 1002 


1702 




BPL BE9BA 


E9B8 0980 


1703 




ORA $80 


E9BA 95DA 


1704 BE9BA 


STA ZDA.X 


E9BC CA 


1705 




DEX 


E9BD DOEC 


1706 




BNE BE9AB 


E9BF AEA502 


1707 BE9BF 


LDX X02A5 


E9C2 20DAE6 


1708 




JSR BE6DA 


E9C5 4C58E9 


1709 




JMP JE958 



line in screen RAM 

; start from current cursor line position 

;skip 80 column lines 

;save position of first 40 column line 

;if line 24 



; scroll screen 

; first 40 column line beyond cursor 
;minus 1 = new cursor line number 
; decrement cursor line number 
;and go reset screen line pointers 

;save I/O pointers on the stack 



; initialize to line 25 

;set true screen address in ZD1/2 
;if not past first 40 column line, 



1,X ;use screen line address 
;to set source address 

;move one line up 

;and repeat 

; clear screen line 

;if first 40 column line = 24 or 25, 



;set next line to 40 column 

;if current line is 80 column, 
;make into 40 column 



;afld repeat 

;get first 40 column line beyond cursor 

; ad just line pointers 

;and exit 
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E9C8 
E9CA 
E9CD 
E9CF 
E9D2 
E9D4 
E9D6 
E9D8 
E9DA 
E9DC 
E9DD 
E9DF 



E9E0 
E9E3 
E9E5 
E9E7 
E9E9 
E9EB 
E9ED 
E9EF 



E9F0 
E9F3 
E9F5 
E9F7 
E9F9 
E9FC 
E9FE 



2903 

0D8802 

8 5 AD 

20E0E9 

A027 

B1AC 

91D1 

B1AE 

91F3 

88 

10F5 

60 



2024EA 

A5AC 

85AE 

A5AD 

2903 

09D8 

85AF 

60 



BDFOEC 

85D1 

B5D9 

2903 

0D8802 

85D2 

60 



1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 



;move one screen line 



SE9C8 AND $03 

ORA X0288 
STA ZAD 
JSR SE9E0 
LDY $27 

BE9D4 LDA (ZAC),Y 
STA (ZD1),Y 
LDA (ZAE),Y 
STA (ZF3),Y 
DEY 

BPL BE9D4 
RTS 



; adjust addr to clear 40/80 column flag 

;add screen memory page 

;and save high part of addrsss 

;set color memory address in ZAE/F 

;move screen byte 

;move color memory byte 

; repeat for one screen line 



;set color and screen addresses 



SE9E0 JSR SEA24 
LDA ZAC 
STA ZAE 
LDA ZAD 
AND $03 
ORA $D8 
STA ZAF 
RTS 



;set color memory pointer in ZF3/4 
;move low byte of screen address 

;get high byte of screen address 
;strip 40/80 column flag 
;add screen page for color memory 
;and store result 



; fetch screen address, depending on X 



SE9F0 LDA TECF0.X 
STA ZD1 
LDA ZD9.X 
AND $03 
ORA X0288 
STA ZD2 
RTS 



;set low byte of screen address 

; fetch high byte 
; strip 40/80 column flag 
;add screen memory page 
:and store result 
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E9FF 
EA01 
EA04 
EA07 
EA09 
EAOB 
EAOE 
EAOF 
EAIO 
EA12 



EA13 
EA14 
EA16 
EA18 
EA1B 



EA1C 
EA1E 
EA20 
EA21 
EA23 



EA24 
EA26 
EA28 
EA2A 
EA2C 
EA2E 
EA30 



A027 

20FOE9 

2024EA 

A920 

91D1 

20DAE4 

EA 

88 

10F5 

60 



A8 

A902 

85CD 

2024EA 

98 



A4D3 

91D1 

8A 

91F3 

60 



A5D1 
85F3 
A5D2 
2903 
09D8 
85F4 
60 



1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 



; clear one screen line 



SE9FF LDY $27 

JSR SE9F0 
JSR SEA24 

BEA07 LDA $20 

STA (ZD1),Y 

JSR SE4DA 

NOP 

DEY 

BPL BEA07 

RTS 



;set true screen RAM address 
;set color memory address 

; clear a byte in video RAM 
; clear a byte in color memory 
; (length adjustment for patch) 

; repeat for one line 



;set cursor flash timing and color memory address 



SEA13 TAY 

LDA $02 
STA ZCD 
JSR SEA24 
TYA 



;init cursor flash timing countdown 
;set color memory address 



[store a character to the screen 



SEA1C LDY ZD3 

STA (ZD1),Y 

TXA 

STA (ZF3),Y 

RTS 



; fetch position on line 

;move char to current screen addres 

; fetch character color 

;move to color memory 



;set color memory address parallel to screen 



SEA24 LDA ZD1 
STA ZF3 
LDA ZD2 
AND $03 
ORA $D8 
STA ZF4 
RTS 



;move low screen address 
;to low of color memory address 
; fetch high of screen address 
; clear 40/80 column flag 
;adjust to color memory area 
;set high of color memory address 
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1786 


; s tandard 


IRQ enti 




1787 


> 






EA31 20EAFF 


1788 


WEA31 


JSR 


SFFEA 


EA34 A5CC 


1789 




LDA 


zee 


EA36 D029 


1790 




BNE 


BEA61 


EA38 C6CD 


1791 




DEC 


ZCD 


EA3A D025 


1792 




BNE 


BEA61 


EA3C A914 


1793 




LDA 


$14 


EA3E 85CD 


1794 




STA 


ZCD 


EA40 A4D3 


1795 




LDY 


ZD3 


EA42 46CF 


1796 




LSR 


ZCF 


EA44 AE8702 


1797 




LDX X0287 


EA47 B1D1 


1798 




LDA 


(ZD1),Y 


EA49 BOH 


1799 




BCS 


BEA5C 


EA4B E6CF 


1800 




INC 


ZCF 


EA4D 85 CE 


1801 




STA 


ZCE 


EA4F 2024EA 


1802 




JSR SEA24 


EA52 B1F3 


1803 




LDA 


(ZF3),Y 


EA54 8D8702 


1804 




STA X0287 


EA57 AE8602 


1805 




LDX 


X0286 


EA5A A5CE 


1806 




LDA 


ZCE 


EA5C 4980 


1807 


BEA5C 


EOR 


$80 


EA5E 201CEA 


1808 




JSR 


SEA1C 


EA61 A501 


1809 


BEA61 


LDA 


Z01 


EA63 2910 


1810 




AND 


$10 


EA65 FOOA 


1811 




BEQ 


BEA71 


EA67 AOOO 


1812 




LDY 


$00 


EA69 84C0 


1813 




STY 


ZCO 


EA6B A501 


1814 




LDA 


Z01 


EA6D 0920 


1815 




ORA 


$20 


EA6F D008 


1816 




BNE 


BEA79 


EA71 A5C0 


1817 


BEA71 


LDA 


ZCO 


EA73 D006 


1818 




BNE 


BEA7B 


EA75 A501 


1819 




LDA 


Z01 


EA77 291F 


1820 




AND 


$1F 


EA79 8501 


1821 


BEA79 


STA 


Z01 


EA7B 2087EA 


1822 


BEA7B 


JSR 


SEA87 


EA7E ADODDC 


1823 




LDA 


XDCOD 


EA81 68 


1824 




PLA 




EA82 A8 


1825 




TAY 




EA83 68 


1826 




PLA 




EA84 AA 


1827 




TAX 




EA85 68 


1828 




PLA 




EA86 40 


1829 




RTI 





;bump real time clock 

; check cursor flash enable flag 

; don't flash if non-zero 

{decrement cursor flash countdown 

;and skip if not finished (flash delay) 

; reset jiffy count for next cursor flip 

; fetch cursor position 

; shift cursor flash phase 

; fetch color under cursor 

;get character under cursor 

; branch if not first entry for character 

;set cursor flash phase to 1 

;save character under cursor 

;set color memory address 

;save color under cursor 

;get current color code 

;get current character 

; invert character 

; display on screen 

; check cassette sense line 

;if no buttons pressed 

; clear tape motor flag 

;turn motor off 

;JMP 

; check tape motor flag 

;if flag shows motor should be on, 
;turn cassette motor on 

;scan keyboard 

; clear any pending IRQ's in ICR1 

jrestore all registers 



; return from IRQ 
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EA87 
EA89 
EA8C 
EA8E 
EA90 
EA93 
EA96 
EA98 
EA9A 
EA9B 
EA9D 
EA9F 
EAA1 
EAA3 
EAA5 
EAA8 
EAAA 
EAAB 
EAAE 
EAB1 
EAB3 
EAB4 
EAB6 
EAB7 
EAB9 
EABB 
EABD 
EABF 
EAC1 
EAC4 
EAC7 
EAC9 
EACB 
EACC 
EACD 
EACF 
EAD1 
EAD2 
EAD4 
EAD5 
EAD6 
EAD7 
EADA 
EADC 
EADD 



A900 

8D8D02 

A040 

84CB 

8D00DC 

AE01DC 

EOFF 

F061 

A8 

A981 

85F5 

A9EB 

85F6 

A9FE 

8DOODC 

A208 

48 

ADO IDC 

CDOIDC 

DOF8 

4A 

B016 

48 

B1F5 

C905 

BOOC 

C903 

F008 

OD8D02 

8D8D02 

1002 

84CB 

68 

C8 

C041 

BOOB 

CA 

DODF 

38 

68 

2A 

8DO0DC 

DOCC 

68 

6C8F02 



EAEO A4CB 
EAE2 B1F5 
EAE4 AA 
EAE5 C4C5 
EAE7 F007 
EAE9 A010 
EAEB 8C8C02 
EAEE DO 36 

EAFO 297F 
EAF2 2C8A02 
EAF5 3016 



1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 



;scan keyboard 



SEA87 



BEAA8 
BEAAB 

BEAB3 



BEAC9 
BEACB 
BEACC 



BEADC 



LDA $00 

STA X028D 

LDY $40 

STY ZCB 

STA XDCOO 

LDX XDC01 

CPX $FF 

BEQ BEAFB 

TAY 

LDA <TEB81 

STA ZF5 

LDA >TEB81 

STA ZF6 

LDA $FE 

STA XDCOO 

LDX $08 

PHA 

LDA XDC01 

CMP XDC01 

BNE BEAAB 

LSR A 

BCS BEACC 

PHA 

LDA (ZF5),Y 

CMP $05 

BCS BEAC9 

CMP $03 

BEQ BEAC9 

ORA X028D 

STA X028D 

BPL BEACB 

STY ZCB 

PLA 

INY 

CPY $41 

BCS BEADC 

DEX 

BNE BEAB3 

SEC 

PLA 

ROL A 

STA XDCOO 

BNE BEAA8 

PLA 

JMP (X028F) 



JEAEO LDY ZCB 

LDA (ZF5),Y 
TAX 

CPY ZC5 
BEQ BEAFO 
LDY $10 
STY X028C 
BNE BEB26 

BEAFO AND $7F 

BIT X028A 
BMI BEBOD 



; clear shift/control flag 

;set key pressed flag to default 
; clear row 
; check column 

;if a key pressed 

;save in Y 

;set address of standard keyboard table 

;ln keyboard table pointer 

;& high byte 

;set first row 

; column count 

;save current row on stack 

;read a column 

;wait until steady 

;if a key is pressed, 

;save on stack 

; fetch keyboard table contents 

;lf < 5 

; check for Commodore key 

;add possible shift/control flag 
;to set keyboard shift/ control flag 

;set key pressed 
jrestore last code read 



;if scan not complete, 

; check next bit in column data 

;else restore row position 

; select next row ( 

;and repeat 

; res tore code 

; perform kbd decode routine (EB48) 

; fetch key pressed 

; decode via keyboard table 

;if not the same as the last key, 



;set repeat key delay counter 
;and skip repeat logic 



;if repeat flag has 

;bit 7 set, repeat all keys 
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EAF7 
EAF9 
EAFB 
EAFD 
EAFF 
EB01 
EB03 
EB05 
EB07 
EB09 
EBOB 
EBOD 
EBIO 
EB12 
EB15 
EB17 
EB1A 
EB1C 
EB1E 
EB21 
EB23 
EB24 
EB26 
EB28 
EB2A 
EB2D 
EB30 
EB32 
EB34 
EB35 
EB37 
EB3A 
EB3C 
EB3F 
EB40 
EB42 
EB44 
EB47 

EB48 
EB4B 
EB4D 
EB4F 
EB52 
EB54 
EB57 
EB59 
EB5C 
EB5E 
EB61 



7049 

C97F 

F029 

C914 

FOOC 

C920 

F008 

C91D 

F004 

C911 

D035 

AC8C02 

F005 

CE8C02 

D02B 

CE8B02 

D026 

A004 

8C8B02 

A4C6 

88 

101C 

A4CB 

84C5 

AC8D02 

8C8E02 

EOFF 

FOOE 

8A 

A6C6 

EC8902 

B006 

9D7702 

E8 

86C6 

A97F 

8D00DC 

60 

AD8D02 

C903 

D015 

CD8E02 

FOEE 

AD9102 

301D 

AD18D0 

4902 

8D18D0 

4C76EB 



1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 



BVS 
CMP 

BEAFB BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 

BEBOD LDY 
BEQ 
DEC 
BNE 

BEB17 DEC 
BNE 
LDY 
STY 
LDY 
DEY 
BPL 

BEB26 LDY 
STY 
LDY 
STY 
CPX 
BEQ 
TXA 
LDX 
CPX 
BCS 
STA 
INX 
SIX 

BEB42 LDA 
STA 
RTS 



BEB42 

$7F 

BEB26 

$14 

BEBOD 

$20 

BEBOD 

$1D 

BEBOD 

$11 

BEB42 

X028C 

BEB17 

X028C 

BEB42 

X028B 

BEB42 

$04 

X028B 

ZC6 

BEB42 

ZCB 

ZC5 

X028D 

X028E 

$FF 

BEB42 

ZC6 
X0289 
BEB42 
X0277.X 

ZC6 
$7F 
XDCOO 



WEB48 LDA X028D 
CMP $03 
BNE BEB64 
CMP X028E 
BEQ BEB42 
LDA X0291 
BMI BEB76 
LDA XD018 
EOR $02 
STA XD018 
JMP BEB76 



;exit when flag > 63 



;delete 

; space 

; cursor right/ left 

; cursor down/ up 

;if none of above, don't repeat 

; check repeat key delay counter 

; countdown complete 

;subtract 1 from repeat key delay ctr 

; subtract 1 from repeat key freq ctr 



; reset repeat key frequency counter 
; check keyboard buffer count 

; branch if something in keyboard queue 

;move current key 

;to last key 

;move shift/control flag 

;to last shift pattern 



; check keyboard queue length 

;against maximum allowed 

;branch if buffer full 

;else move character to keybord queue 

;add 1 to length of keyboard queue 
;set PA1 bits high 



; check shift/control flag 

;for Commodore key and shift depressed 

;if so, and code is different 

;from last keyboard shift pattern 

;and not in shift lock mode 



; then toggle lower case/upper case bit 
;set video chip bit for proper display 
;exit 
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EB64 
EB65 
EB67 
EB69 
EB6B 
EB6C 
EB6F 
EB71 
EB74 
EB76 



EB79 
EB7B 
EB7D 
EB7F 



EB81 
EB89 
EB91 
EB99 
EBA1 
EBA9 
EBB1 
EBB9 



EBC2 
EBCA 
EBD2 
EBDA 
EBE2 
EBEA 
EBF2 
EBFA 



OA 

C908 

9002 

A906 

AA 

BD79EB 

85F5 

BD7AEB 

85F6 

4CE0EA 



81EB 
C2EB 
03EC 
78EC 



140D1D 
335741 
355244 
375947 
39494A 
2B504C 
5C2A3B 
315F04 



948D9D 
23D7C1 
25D2C4 
27D9C7 
29C9CA 
DBDOCC 
A9C05D 
215F04 



ECO 3 
ECOB 
EC13 
EC1B 
EC23 
EC2B 
EC33 
EC3B 



948D9D 
96B3B0 
98B2AC 
9AB7A5 
29A2B5 
A6AFB6 
A8DF5D 
815F04 



1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 



; select new keyboard table 



BEB64 ASL A 

CMP $08 

BCC BEB6B 

LDA $06 
BEB6B TAX 

LDA TEB79.X 

STA ZF5 

LDA TEB79+1.X 

STA ZF6 
BEB76 JMP JEAEO 



; double entry Index 
;lf Index Is too high, 

; select "Control Key" keyboard 

; fetch low byte from table 
;and set keyboard table pointer 

;& high byte 
;exlt 



; table of keyboard table addresses 



TEB79 .W TEB81 
.W TEBC2 
.W TEC03 
.W TEC78 

» 

; standard keyboard 



; Standard keyboard 

;" Shift" keyboard 

; "Commodore Key" keyboard 

; "Control" keyboard 



TEB81 .BY $14,$0D,$1D,$88,$85 > $86,$87,$11 
.BY $33, $57, $41 ,$34, $5A, $53, $45, $01 
.BY $35, $52, $44, $36, $43, $46, $54, $58 
.BY $37, $59, $47, $38, $42, $48, $55, $56 
.BY $39,$49,$4A,$30,$4D,$4B,$4F,$4E 
.BY $2B,$50,$4C,$2D,$2E,$3A,$40,$2C 
.BY $5C,$2A,$3B,$13,$01,$3D,$5E,$2F 
.BY $31,$5F,$04,$32,$20,$02,$51,$03,$FF 



"Shift" keyboard table 

TEBC2 .BY $94,$8D,$9D,$8C, 
.BY $23,$D7,$C1,$24, 
.BY $25,$D2,$C4,$26, 
.BY $27,$D9,$C7,$28, 
.BY $29,$C9,$CA,$30, 
.BY $DB,$D0,$CC,$DD, 
.BY $A9,$C0,$5D,$93, 
.BY $21,$5F,$04,$22, 



$89,$8A,$8B,$91 

$DA,$D3,$C5,01 

$C3,$C6,$D4,$D8 

$C2,$C8,$D5,$D6 

$CD,$CB,$CF,$CE 

$3E,$5B,$BA,$3C 

$01,$3D,$DE,$3F 

$A0,$02,$D1,$83,$FF 



; "Commodore Key" keyboard table 

TEC03 .BY $94,$8D,$9D,$8C,$89,$8A,$8B,$91 
.BY $96,$B3,$B0,$97,$AD,$AE,$B1,$01 
.BY $98,$B2,$AC,$99,$BC,$BB,$A3,$BD 
.BY $9A, $B7 , $A5 , $9B ,$BF, $B4 , $B8 , $BE 
.BY $29,$A2,$B5,$30,$A7,$A1,$B9,$AA 
.BY $A6,$AF,$B6,$DC,$3E,$5B,$A4,$3C 
.BY $A8,$DF,$5D,$93,$01,$3D,$DE,$3F 
.BY $81,$5F,$04,$95,$A0,$02,$AB,$83,$FF 
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EC44 
EC46 
EC48 
EC4B 
EC4D 
EC4F 
EC51 
EC53 
EC56 
EC58 
EC5B 

EC5E 
EC60 
EC62 
EC64 
EC57 
EC69 
EC6B 
EC6D 
EC6F 
EC72 
EC75 



EC78 
EC80 
EC88 
EC90 
EC98 
ECAO 
ECA8 
ECBO 



C90E 

D007 

AD18D0 

0902 

D009 

C98E 

DOOB 

AD18D0 

29FD 

8D18D0 

4CA8E6 

C908 

D007 

A980 

OD9102 

3009 

C909 

DOEE 

A97F 

2D9102 

8D9102 

4CA8E6 



FFFFFF 
1C1701 
9C1204 
1F1907 
12090A 
FF100C 
1CFF1D 
9006FF 



1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 



; check for special CHR$ values 



JEC44 CMP $0E 

BNE JEC4F 
LDA XD018 
ORA $02 
BNE BEC58 

JEC4F CMP $8E 

BNE BEC5E 
LDA XD018 
AND $FD 

BEC58 STA XD018 

BEC5B JMP BE6A8 

BEC5E CMP $08 

BNE BEC69 
LDA $80 
ORA X0291 
BMI BEC72 

BEC69 CMP $09 

BNE BEC5B 
LDA $7F 
AND X0291 

BEC72 STA X0291 
JMP BE6A8 



;if CHR$(14) to be printed, 



;set value for unshift/ shift 

;reset address and exit 

;if CHR$(142) to be printed, 



;set value for shift/ graphics 
; reset video chip register 
;exit 

;if CHR$(8) to be printed, 

;set shift mode to locked 

;and exit 

;if CHR$(9) to be printed, 

; clear shift lock flag 

; condition shift lock flag 
;exit 



;" Control Key" keyboard table 

TEC78 .BY $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 
.BY $1C,$17,$01,$9F,$1A,$13,$05,$FF 
.BY $9C,$12,$04,$1E,$03,$06,$14,$18 
.BY $1F,$19,$07,$9E,$02,$08,$15,$16 
.BY $12,$09,$0A,$92,$0D,$0B,$0F,$0E 
.BY $FF,$10,$0C,$FF,$FF,$1B,$00,$FF 
.BY $1C,$FF,$1D,$FF,$FF,$1F,$1E,$FF 
.BY $90 , $06 , $FF, $05 , $FF, $FF, $11,$FF,$FF 



165 





2032 




2033 


ECB9 00 


2034 


ECBA 00 


2035 


ECBB 00 


2036 


ECBC 00 


2037 


ECBD 00 


2038 


ECBE 00 


2039 


ECBF 00 


2040 


EC CO 00 


2041 


ECC1 00 


2042 


ECC2 00 


2043 


ECC3 00 


2044 


ECC4 00 


2045 


ECC5 00 


2046 


ECC6 00 


2047 


■ECC7 00 


2048 


ECC8 00 


2049 


ECC9 00 


2050 


ECCA 9B 


2051 


ECCB 37 


2052 


ECCC 00 


2053 


ECCD 00 


2054 


ECCE 00 


2055 


ECCF 08 


2056 


ECDO 00 


2057 


ECD1 14 


2058 


ECD2 OF 


2059 


ECD3 00 


2060 


ECD4 00 


2061 


ECD5 00 


2062 


ECD6 00 


2063 


ECD7 00 


2064 


ECD8 00 


2065 


ECD9 OE 


2066 


ECDA 06 


2067 


ECDB 01 


2068 


ECDC 02 


2069 


ECDD 03 


2070 


ECDE 04 


2071 


ECDF 00 


2072 


ECEO 01 


2073 


ECE1 02 


2074 


ECE2 03 


2075 


ECE3 04 


2076 


ECE4 05 


2077 


ECE5 06 


2078 


ECE6 07 


2079 




2080 




2081 




2082 




2083 


ECE7 4C4F41 


2084 


ECEC 52554E 


2085 




2086 




2087 




2088 


ECFO 002850 


2089 


ECF8 406890 


2090 


EDOO 80A8D0 


2091 



; standard values for video chip 



TECB9 



;+2E, 



.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


-BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$9B 


-BY 


$37 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$08 


.BY 


$00 


.BY 


$14 


.BY 


$0F 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$0E 


.BY 


$06 


.BY 


$01 


.BY 


$02 


.BY 


$03 


.BY 


$04 


.BY 


$00 


.BY 


$01 


.BY 


$02 


.BY 


$03 


.BY 


$04 


.BY 


$05 


.BY 


$06 


.BY 


$07 


MOB 


7 color 



;+ 


00, 


;+ 


01, 


;+ 


02, 


;+ 


03, 


;+ 


04, 


; + 


05, 


;+ 


06, 


;+ 


07, 


;+ 


08, 


;+ 


09, 


;+ 


OA, 


;+ 


OB, 


;+ 


OC, 


;+ 


OD, 


;+ 


OE, 


; + 


OF, 


;+ 


10, 


; + 


n> 


; + 


12, 


;+ 


13, 


;+ 


14, 


;+ 


15, 


;+ 


16, 


;+ 


17, 


; + 


18, 


;+ 


19. 


;+ 


1A, 


;+ 


IB, 


;+ 


1C, 


;+ 


ID, 


;+ 


IE, 


;+ 


IF. 


;+ 


20, 


;+ 


21, 


; + 


22, 


; + 


23, 


;+ 


24, 


;+ 


25, 


;+ 


26, 


; + 


27, 


; + 


28, 


;+ 


29, 


;+ 


2A, 


;+ 


2B, 


;+ 


2C, 


; + 


2D, 



MOB 


X position 




MOB 


Y position 




MOB 1 


X position 




MOB 1 


Y position 




MOB 2 


X position 




MOB 2 


Y position 




MOB 3 


X position 




MOB 3 


Y position 




MOB 4 


X position 




MOB 4 


Y position 




MOB 5 


X position 




MOB 5 


Y position 




MOB 6 


X position 




MOB 6 


Y position 




MOB 7 


X position 




MOB 7 


Y position 




MSB of X position 




RC3, DEN, RSEL, Yl and YO 


set 


Raster Register 




Light 


Pen X 




Light 


Pen Y 




MOB Enable 




CSEL set 




MOB Y 


expand 




Memory Pointers 




Interrupt Register 




Enable Interrupts 




MOB-Data priority 




MOB Multi-Color selection 




MOB X- 


expand 




MOB-MOB collision 




MOB-Data collision 




Exterior color 




Background # color 




Background It 1 color 




Background #2 color 




Background # 3 color 




MOB Multi-Color # 




MOB Multi-Color t 1 




MOB 


color 




MOB 1 


color 




MOB 2 


color 




MOB 3 


color 




MOB 4 


color 




MOB 5 


color 




MOB 6 


color 





initialized to $4C 



; keyboard buffer entry for shift of Run/ Stop key 

IECE7 .BY 'L,'0,'A,'D,$OD 
.BY 'R,'U,'N,$0D 

; table of low bytes of screen line addresses 

TECFO .BY $00,$28,$50,$78,$AO,$C8,$FO,$18 
.BY $4O,$68,$90,$B8,$E0,$08,$30,$58 
.BY $80,$A8,$D0,$F8,$2O,$48,$70,$98,$C0 
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2093 


;send 


TALK on si 




2094 


» 




ED09 0940 


2095 


SED09 


ORA $40 


EDOB 2C 


2096 
2097 


» 


-BY $2C 




2098 


; send 


LISTEN on 




2099 


; 




EDOC 0920 


2100 


SEDOC 


ORA $20 


EDOE 20A4F0 


2101 




JSR SF0A4 


ED11 48 


2102 


SED11 


PHA 


ED12 2494 


2103 




BIT Z94 


ED14 100A 


2104 




BPL BED20 


ED16 38 


2105 




SEC 


ED17 66A3 


2106 




ROR ZA3 


ED19 2040ED 


2107 




JSR SED40 


ED1C 4694 


2108 




LSR Z94 


ED1E 46A3 


2109 




LSR ZA3 


ED20 68 


2110 


BED20 


PLA 


ED21 8595 


2111 




STA Z95 


ED23 78 


2112 




SEI 


ED24 2097EE 


2113 




JSR SEE97 


ED27 C93F 


2114 




CMP $3F 


ED29 D003 


2115 




BNE BED2E 


ED2B 2085EE 


2116 




JSR SEE85 


ED2E ADOODD 


2117 


BED2E 


LDA XDDOO 


ED31 0908 


2118 




ORA $08 


ED33 8D00DD 


2119 




STA XDDOO 


ED36 78 


2120 


SED36 


SEI 


ED37 208EEE 


2121 




JSR SEE8E 


ED3A 209 7EE 


2122 




JSR SEE97 


ED3D 20B3EE 


2123 




JSR SEEB3 



;add offset for TALK 
;sklp next Instruction 



;add offset for LISTEN 
;protect against RS-232 NMI's 
;save code to transmit 
;if no data is pending 



;set EOI flag 

;output byte on serial bus 

; clear data pending flag 

; clear EOI flag 

;move code to transmit 

;into the output buffer 

j set serial bus data line low 

;if not UNLISTEN 
;set serial clock low 



;set serial ATN line high 
; disable IRQ 
j set serial clock high 
;set serial data low 
;delay 1 millisecond 
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2125 


;send 


a byte fr< 




2126 


> 




ED40 78 


2127 


SED40 


SEI 


ED41 2097EE 


2128 




JSR SEE97 


ED44 20A9EE 


2129 




JSR SEEA9 


ED47 B064 


2130 




BCS BEDAD 


ED49 2085EE 


2131 




JSR SEE85 


ED4C 24A3 


2132 




BIT ZA3 


ED4E 100A 


2133 




BPL BED5A 


ED50 20A9EE 


2134 


BED50 


JSR SEEA9 


ED53 90FB 


2135 




BCC BED50 


ED55 20A9EE 


2136 


BED55 


JSR SEEA9 


ED58 BOFB 


2137 




BCS BED55 


ED5A 20A9EE 


2138 


BED5A 


JSR SEEA9 


ED5D 90FB 


2139 




BCC BED5A 


ED5F 208EEE 


2140 




JSR SEE8E 


ED62 A908 


2141 




LDA $08 


ED64 85A5 


2142 




STA ZA5 


ED66 ADOODD 


2143 


BED66 


LDA XDDOO 


ED69 CDOODD 


2144 




CMP XDDOO 


ED6C D0F8 


2145 




BNE BED66 


ED6E OA 


2146 




ASL A 


ED6F 903F 


2147 




BCC BEDBO 


ED71 6695 


2148 




ROR Z95 


ED73 B005 


2149 




BCS BED7A 


ED75 20A0EE 


2150 




JSR SEEAO 


ED78 D003 


2151 




BNE BED7D 


ED7A 2097EE 


2152 


BED7A 


JSR SEE97 


ED7D 2085EE 


2153 


BED7D 


JSR SEE85 


ED80 EA 


2154 




NOP 


ED81 EA 


2155 




NOP 


ED82 EA 


2156 




NOP 


ED83 EA 


2157 




NOP 


ED84 ADOODD 


2158 




LDA XDDOO 


ED87 29DF 


2159 




AND $DF 


ED89 0910 


2160 




ORA $10 


ED8B 8D00DD 


2161 




STA XDDOO 


ED8E C6A5 


2162 




DEC ZA5 


ED90 D0D4 


2163 




BNE BED66 


ED92 A904 


2164 




LDA $04 


ED94 8D07DC 


2165 




STA XDC07 


ED97 A919 


2166 




LDA $19 


ED99 8D0FDC 


2167 




STA XDCOF 


ED9C ADODDC 


2168 




LDA XDCOD 


ED9F ADODDC 


2169 


BED9F 


LDA XDCOD 


EDA2 2902 


2170 




AND $02 


EDA4 DOOA 


2171 




BNE BEDBO 


EDA6 20A9EE 


2172 




JSR SEEA9 


EDA9 B0F4 


2173 




BCS BED9F 


EDAB 58 


2174 




CLI 


EDAC 60 


2175 
2176 


> 


RTS 


EDAD A980 


2177 


BEDAD 


LDA $80 


EDAF 2C 


2178 




.BY $2C 


EDBO A903 


2179 


BEDBO 


LDA $03 


EDB2 201CFE 


2180 


JEDB2 


JSR SFE1C 


EDB5 58 


2181 




CLI 


EDB6 18 


2182 




CLC 


EDB7 904A 


2183 




BCC BEE03 



Z95 on serial bus 

; disable IRQ 

;set serial data low 

;test data level 

;if high, indicate device not present 

;set serial clock low 

;i£ EOI flag is set 

;wait for data high 

;wait for data low 

;wait for data high (end of EOI pulse) 
;set output clock high 

; initialize bit count 



;wait for PA2 to steady 
;if data high not received, 
; indicate a timeout 
; fetch bit to send 
;if bit is a 0, 
;send a 

;else send a 1 

;set serial clock low 



;hold clock/data lines for 8 usee 



;set serial data line low 
;and clock high 

;if 8 bits not sent 
;repeat 

;set TBH1 to $04xx 

;set CB1 to force load, one shot and TBI 

; clear pending IRQ bits in ICR1 



;if underflow on TB, indicate 

;repeat test until data line is low 
; enable IRQ 



;set Device Not Present 

;skip next instruction 

;set Timeout bits (read and write) 

;add bits in A to ST 



;set ATN low and exit 
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EDB9 8595 
EDBB 2036ED 
EDBE ADOODD 
EDC1 29F7 
EDC3 8D00DD 
EDC6 60 



2185 ;send Secondary Address (after LISTEN) on serial bus 

2186 ; 
;save serial deferred character 

JSR SED36 ;send on serial bus 



2187 SEDB9 STA Z95 



;set ATN low 



EDC7 
EDC9 
EDCC 
EDCD 
EDDO 
EDD3 
EDD6 
EDD9 
EDDB 
EDDC 



EDDD 
EDDF 
EDE1 
EDE2 
EDE4 
EDE6 
EDE7 
EDEA 
EDEB 
EDED 
EDEE 



8595 

2036ED 

78 

20A0EE 

20BEED 

2085EE 

20A9EE 

30FB 

58 

60 



2494 

3005 

38 

6694 

D005 

48 

2040ED 

68 

8595 

18 

60 



2188 

2189 SEDBE LDA XDDOO 

2190 AND $F7 

2191 STA XDDOO 

2192 RTS 

2193 ; 

2194 ;send Secondary Address (after TALK) on serial bus 

2195 ; 
;save serial deferred character 
;send on serial bus 



2196 SEDC7 STA Z95 

2197 JSR SED36 

2198 SEDCC SET 



JSR SEEAO 
JSR SEDBE 
JSR SEE85 
BEDD6 JSR SEEA9 
BMI BEDD6 
CLI 
RTS 



2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 JEDDD BIT Z94 

BMI BEDE6 



;set serial data high 

;set ATN high 

;set serial clock low 

;read serial clock 

;loop until serial clock goes low 

; enable IRQ 



; output byte on serial bus 



2210 
2211 
2212 
2213 



;if no data buffered, 



EDEF 78 
EDFO 208EEE 
EDF3 ADOODD 
EDF6 0908 
EDF8 8D00DD 
EDFB A95F 
EDFD 2C 



SEC 

ROR Z94 
BNE BEDEB 

2214 BEDE6 PHA 

2215 JSR SED40 

2216 PLA 

2217 BEDEB STA Z95 

2218 CLC 

2219 RTS 

2220 ; 

2221 ;send TALK on serial bus 

2222 ; 

2223 SEDEF SEI 



;set serial deferred flag 

;else save character on stack 

;send deferred character on serial bus 

;save new serial deferred character 



EDFE 
EEOO 
EE03 
EE06 
EE07 
EE09 
EEOA 
EEOC 
EEOD 
EE10 



A93F 

2011ED 

20BEED 

8A 

A20A 

CA 

DOFD 

AA 

2085EE 

4C97EE 



2224 JSR SEE8E 

2225 LDA XDDOO 

2226 ORA $08 

2227 STA XDDOO 

2228 LDA $5F 

2229 .BY $2C 

2230 ; 

2231 ;send UNLISTEN on serial bus 

2232 ; 

2233 SEDFE LDA $3F 

2234 JSR SED11 

2235 BEE03 JSR SEDBE 

2236 SEE06 TXA 

2237 LDX $0A 

2238 BEE09 DEX 

2239 BNE BEE09 

2240 TAX 

2241 JSR SEE85 

2242 JMP SEE97 



;disable IRQ 

;set serial clock low 

;set serial ATN high 

;set A to code for TALK 
;skip next instruction 



;set A to code for UNLISTEN 
;send code in A on serial bus 
;set ATN low 



; pause 52 microseconds 

;set serial clock low 

;set serial data low and return 
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2244 


; Input byte on i 




2245 


; 




EE13 78 


2246 


JEE13 


1 SEI 


EE14 A900 


2247 




LDA $00 


EE16 85A5 


2248 




STA ZA5 


EE18 2085EE 


2249 




JSR SEE85 


EE1B 20A9EE 


2250 


BEE1E 


1 JSR SEEA9 


EE1E 10FB 


2251 




BPL BEE1B 


EE20 A901 


2252 


BEE20 


1 LDA $01 


EE22 8D07DC 


2253 




STA XDC07 


EE25 A919 


2254 




LDA $19 


EE27 8D0FDC 


2255 




STA XDCOF 


EE2A 2097EE 


2256 




JSR SEE97 


EE2D ADODDC 


2257 




LDA XDCOD 


EE30 ADODDC 


2258 


BEE30 


LDA XDCOD 


EE33 2902 


2259 




AND $02 


EE35 D007 


2260 




BNE BEE3E 


EE37 20A9EE 


2261 




JSR SEEA9 


EE3A 30F4 


2262 




Bm BEE30 


EE3C 1018 


2263 




BPL BEE56 


EE3E A5A5 


2264 


BEE3E 


LDA ZA5 


EE40 F005 


2265 




BEQ BEE47 


EE42 A902 


2266 




LDA $02 


EE44 4CB2ED 


2267 
2268 


» 


JMP JEDB2 


EE47 20A0EE 


2269 


BEE47 


JSR SEEAO 


EE4A 2085EE 


2270 




JSR SEE85 


EE4D A940 


2271 




LDA $40 


EE4F 201CFE 


2272 




JSR SFE1C 


EE52 E6A5 


2273 




INC ZA5 


EE54 DOCA 


2274 




BNE BEE20 


EE56 A908 


2275 


BEE56 


LDA $08 


EE58 85A5 


2276 




STA ZA5 


EE5A ADOODD 


2277 


BEE5A 


LDA XDDOO 


EE5D CDOODD 


2278 




CMP XDDOO 


EE60 D0F8 


2279 




BNE BEE5A 


EE62 OA 


2280 




ASL A 


EE63 10F5 


2281 




BPL BEE5A 


EE65 66A4 


2282 




ROR ZA4 


EE67 ADOODD 


2283 


BEE67 


LDA XDDOO 


EE6A CDOODD 


2284 




CMP XDDOO 


EE6D D0F8 


2285 




BNE BEE67 


EE6F OA 


2286 




ASL A 


EE70 30F5 


2287 




BMI BEE67 


EE72 C6A5 


2288 




DEC ZA5 


EE74 D0E4 


2289 




BNE BEE5A 


EE76 20A0EE 


2290 




JSR SEEAO 


EE79 2490 


2291 




BIT Z90 


EE7B 5003 


2292 




BVC BEE80 


EE7D 20O6EE 


2293 




JSR SEE06 


EE80 A5A4 


2294 : 


BEE80 


LDA ZA4 


EE82 58 


2295 




CLI 


EE83 18 


2296 




CLC 


EE84 60 


2297 




RTS 



serial bus 



;disable IRQ 

; clear bit count 
;set serial clock low 
;read serial clock 
;and loop until high 

; prime TBH1 with $01xx 

;set CB1 to force load, one shot & TBI 

;set serial data low 

; clear pending IRQ bits in ICR1 



;if not underflow in TB 

;read serial clock and data 

; repeat if clock still low 

;else go receive byte 

;when underflow on TB and not first bit, 

;set read timeout in ST 



;set serial data high 
;set serial clock low 

;set EOI in ST 

;add one to bit count 

;and repeat 

;set bit count to 8 



;wait until PA2 is steady 

;loop until clock bit rises 
;add data bit to byte being read 



;walt until PA2 is steady 

;and for clock line to fall 

;loop until 8 bits read 
j set serial data high 

;if EOI is high 

; pause 52 usee, set clock and data low 

; restore byte read 

; enable IRQ 
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EE85 ADOODD 
EE88 29EF 
EE8A 8DOODD 
EE8D 60 



EE8E ADOODD 
EE91 0910 
EE93 8D00DD 
EE96 60 



EE97 ADOODD 
EE9A 29DF 
EE9C 8D00DD 
EE9F 60 



EEAO ADOODD 
EEA3 0920 
EEA5 8D00DD 
EEA8 60 



EEA9 ADOODD 
EEAC CDOODD 
EEAF D0F8 
EEB1 OA 
EEB2 60 



EEB3 8A 
EEB4 A2B8 
EEB6 CA 
EEB7 DOFD 
EEB9 AA 
EEBA 60 



2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 



j set serial clock line low 

S 

SEE85 LDA XDDOO 
AND $EF 
STA XDDOO 
RTS 

> 

;set serial clock line high 

SEE8E LDA XDDOO 
ORA $10 
STA XDDOO 
RTS 

;set serial data line low 

SEE97 LDA XDDOO 
AND $DF 
STA XDDOO 
RTS 

;set serial data line high 

SEEAO LDA XDDOO 
ORA $20 
STA XDDOO 
RTS 

;wait for PA2 to steady 
;exit with data bit in C 
;and clock bit in N 



SEEA9 LDA XDDOO 
CMP XDDOO 
BNE SEEA9 
ASL A 
RTS 



;wait until PA2 is steady 

; shift data into C and clock into N 



;delay 1 millisecond 

SEEB3 TXA 

LDX $B8 
BEEB6 DEX 

BNE BEEB6 

TAX 

RTS 



;save A 

; initialize delay counter 

;perform delay of 1 millisecond 
;restore A 
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2346 


;set 


next bit to 




2347 


» 




EEBB A5B4 


2348 


SEEBB LDA ZB4 


EEBD F047 


2349 




BEQ BEF06 


EEBF 303F 


2350 




BMI BEFOO 


EEC1 46B6 


2351 




LSR ZB6 


EEC3 A200 


2352 




LDX $00 


EEC5 9001 


2353 




BCC BEEC8 


EEC 7 CA 


2354 




DEX 


EEC8 8A 


2355 


BEEC8 


I TXA 


EEC9 45BD 


2356 




EOR ZBD 


EECB 85BD 


2357 




STA ZBD 


EECD C6B4 


2358 




DEC ZB4 


EECF F006 


2359 




BEQ BEED7 


EED1 8A 


2360 


BEED1 


. TXA 


EED2 2904 


2361 




AND $04 


EED4 85B5 


2362 




STA ZB5 


EED6 60 


2363 
2364 




RTS 


EED7 A920 


2365 


BEED7 


LDA $20 


EED9 2C9402 


: 2366 




BIT X0294 


EEDC F014 


2367 




BEQ BEEF2 


EEDE 30 1C 


2368 




BMI BEEFC 


EEEO 7014 


2369 




BVS BEEF6 


EEE2 A5BD 


2370 




LDA ZBD 


EEE4 D001 


2371 




BNE BEEE7 


EEE6 CA 


2372 


BEEE6 


DEX 


EEE7 C6B4 


2373 


BEEE7 


DEC ZB4 


EEE9 AD9302 


2374 




LDA X0293 


EEEC 10E3 


2375 




BPL BEED1 


EEEE C6B4 


2376 




DEC ZB4 


EEFO DODF 


2377 




BNE BEED1 


EEF2 E6B4 


2378 


BEEF2 


INC ZB4 


EEF4 DOFO 


2379 




BNE BEEE6 


EEF6 A5BD 


2380 


BEEF6 


LDA ZBD 


EEF8 FOED 


2381 




BEQ BEEE7 


EEFA DOEA 


2382 




BNE BEEE6 


EEFC 70E9 


2383 


BEEFC 


BVS BEEE7 


EEFE 50E6 


2384 




BVC BEEE6 


EFOO E6B4 


2385 


BEFOO 


INC ZB4 


EF02 A2FF 


2386 




LDX $FF 


EF04 DOCB 


2387 




BNE BEED1 


EF06 AD9402 


2388 


BEF06 


LDA X0294 


EF09 4A 


2389 




LSR A 


EFOA 9007 


2390 




BCC BEF13 


EFOC 2C01DD 


2391 




BIT XDD01 


EFOF 101D 


2392 




BPL BEF2E 


EF11 501E 


2393 




BVC BEF31 


EF13 A900 


2394 : 


BEF13 


LDA $00 


EF15 85BD 


2395 




STA ZBD 


EF17 85B5 


2396 




STA ZB5 


EF19 AE9802 


2397 




LDX X0298 


EF1C 86B4 


2398 




SIX ZB4 


EF1E AC9D02 


2399 




LDY X029D 


EF21 CC9E02 


2400 




CPY X029E 


EF24 F013 


2401 




BEQ BEF39 


EF26 B1F9 


2402 




LDA (ZF9),Y 


EF28 85B6 


2403 




STA ZB6 


EF2A EE9D02 


2404 




INC X029D 


EF2D 60 


2405 




RTS 



transmit on RS-232 bus 

; check pending bit count 

;if byte finished, send stop bit(s) 

;if not stop bit, 

; shift next bit to send into C 

;X-00/FF for 0/1 to send 



; compute parity of word being sent 

;decrement bit count 

;lf word finished, handle parity 



;set next bit to send 

; check RS-232 Command Register 

;for parity option 

;no parity 

; transmit mark or space parity 

; transmit even parity 

;make parity odd 



;decrement bit count 

;check RS-232 Control Register 

;and branch if only one stop bit needed 

;else decrement bit count 

;and send first of 2 stop bits 

; increment bit count 

;use computed parity 

;to set X for even parity 

; transmit space parity 
; transmit mark parity 
;bump bit count 

;go send a stop bit 

; check RS-232 Command Register 

;and skip if in 3-line mode 

; error if DSR signal missing 
;or CTS signal missing 

; clear parity 

; clear next bit to send 

;move number of bits to send 

j to bit count 

;if RS-232 transmit buffer is not empty 



;move next byte to send 

;to character buffer 

;bump RS-232 transmit buffer output ptr 
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EF2E 
EF30 
EF31 
EF33 
EF36 
EF39 
EF3B 
EF3E 
EF41 
EF43 
EF46 
EF49 



A940 

2C 

A910 

0D97O2 

8D9702 

A901 

8D0DDD 

4DA102 

0980 

8DA102 

8D0DDD 

60 



EF4A A209 
EF4C A920 
EF4E 2C9302 
EF51 F001 
EF53 CA 
EF54 5002 
EF56 CA 
EF57 CA 
EF58 60 



EF59 
EF5B 
EF5D 
EF5F 
EF61 
EF63 
EF65 
EF67 
EF69 
EF6B 
EF6D 



A6A9 
D033 
C6A8 
F036 
300D 
A5A7 
45AB 
85AB 
46A7 
66AA 
60 



EF6E C6A8 
EF70 A5A7 
EF72 F067 
EF74 AD9302 
EF77 OA 
EF78 A901 
EF7A 65A8 
EF7C DOEF 



2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 



;handle RS-232 errors 



BEF2E LDA 
.BY 

BEF31 LDA 
ORA 
STA 

BEF39 LDA 

JEF3B STA 
EOR 
ORA 
STA 
STA 
RTS 



$40 

$2C 

$10 

X0297 

X0297 

$01 

XDDOD 

X02A1 

$80 

X02A1 

XDDOD 



;add DSR signal missing error bit 
;skip next instruction 
;add CIS signal missing error bit 
;to RS-232 Status Register 

; clear TA2 IRQ mask 

; set/clear ICR2 flags depending on A 



;set ICR2 activity register 
;and ICR2 



; check control register to set word length 



SEF4A LDX $09 
LDA $20 
BIT X0293 
BEQ BEF54 
DEX 

BEF54 BVC BEF58 
DEX 
DEX 

BEF58 RTS 



; start with a length of 9 

;check RS-232 Control Register 

;and branch if word length is 6 or 8 

;else set X to 8 

;if word length is 7 or 8, exit 



;exit with length in X 
;add bit input on RS-232 bus to word being input 



JEF59 LDX ZA9 

BNE BEF90 
DEC ZA8 
BEQ BEF97 
BMI BEF70 
LDA ZA7 
EOR ZAB 
STA ZAB 
LSR ZA7 
ROR ZAA 

BEF6D RTS 



; check receiver start bit flag 
;if a bit is ready, 
; decrement input bit count 
;if word is not complete, 

;use receiver input bit 
;to calculate parity 

; shift bit received 
;into byte being read 



;handle end of word for RS-232 input 

BEF6E DEC ZA8 ; decrement input bit count 

BEF70 LDA ZA7 ; check receiver input bit 

BEQ BEFDB ;if somethine read 

LDA X0293 ;use RS-232 Control Register to 

ASL A ; shift stop bit count flag into C 
LDA $01 

ADC ZA8 ;add possible second stop bit 

BNE BEF6D ;to input bit count and exit 
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EF7E A990 



EF80 8D0DDD 2462 
EF83 ODA102 2463 
EF86 8DA102 2464 
EF89 85A9 2465 
EF8B A902 2466 
EF8D 4C3BEF 2467 
2468 



2459 ; enable byte reception 

2460 ; 

2461 BEF7E LDA $90 



STA XDDOD 
ORA X02A1 
STA X02A1 
STA ZA9 
LDA $02 
JMP JEF3B 



;set Flag bit mask in ICR2 

;plus ICR2 activity register 

;to form new 1CR2 activity register 

;and receiver start bit flag 

;set TB2 mask in ICR2 and exit 



2469 ;receiver start bit test 

2470 ; 
EF90 A5A7 2471 BEF90 LDA ZA7 
EF92 DOEA 2472 BNE BEF7E 
EF94 85A9 2473 STA ZA9 
EF96 60 2474 RTS 

2475 ; 

2476 ;put received data into RS-232 receive buffer 

2477 ; 



;test receiver input bit 

;if start read, 

; clear start bit flag 



EF97 AC9B02 


: 2478 


BEF97 


LDY X029B 


EF9A C8 


2479 




INY 


EF9B CC9C02 


: 2480 




CPY X029C 


EF9E F02A 


2481 




BEQ BEFCA 


EFAO 8C9B02 


: 2482 




STY X029B 


EFA3 88 


2483 




DEY 


EFA4 A5AA 


2484 




LDA ZAA 


EFA6 AE9802 


2485 




LDX X0298 


EFA9 E009 


2486 


BEFA9 


CPX $09 


EFAB F004 


2487 




BEQ BEFB1 


EFAD 4A 


2488 




LSR A 


EFAE E8 


2489 




INX 


EFAF D0F8 


2490 




BNE BEFA9 


EFB1 91F7 


2491 


BEFB1 


STA (ZF7), 


EFB3 A920 


2492 




LDA $20 


EFB5 2C9402 


2493 




BIT X0294 


EFB8 F0B4 


2494 




BEQ BEF6E 


EFBA 30B1 


2495 




BMI BEF6D 


EFBC A5A7 


2496 




LDA ZA7 


EFBE 45AB 


2497 




EOR ZAB 


EFCO F003 


2498 




BEQ BEFC5 


EFC2 70A9 


2499 




BVS BEF6D 


EFC4 2C 


2500 




.BY $2C 


EFC5 50A6 


2501 


BEFC5 


BVC BEF6D 


EFC7 A901 


2502 




LDA $01 


EFC9 2C 


2503 




.BY $2C 


EFCA A904 


2504 


BEFCA 


LDA $04 


EFCC 2C 


2505 




.BY $2C 


EFCD A980 


2506 


BEFCD 


LDA $80 


EFCF 2'. I 


2507 




.BY $2C 


EFDO A902 


2508 


BEFDO 


LDA $02 


EFD2 0D97O2 


2509 




ORA X0297 


EFD5 8D9702 


2510 




STA X0297 


EFD8 4C7EEF 


2511 
2512 


» 


JMP BEF7E 


EFDB A5AA 


2513 


BEFDB 


LDA ZAA 


EFDD D0F1 


2514 




BNE BEFDO 


EFDF FOEC 


2515 




BEQ BEFCD 



;lf RS-232 receive buffer input pointer 

;= RS-232 receive buffer output pointer 
;then receive buffer overrun error 
;bump RS-232 receive buffer input ptr 

; fetch byte received so far in A 
;and number of bits to receive in X 



; right justify input byte 



; store received byte in receive buffer 

; check RS-232 Command Register 

;for parity options 

;no parity 

; parity check disabled 

; fetch receiver parity bit 

;check against calculated parity 

;odd parity received 

;exit if even parity required 

;skip next instruction 

;exit if odd parity required 

;else indicate Parity Error 

;skip next instruction 

; indicate Receiver Buffer Overrun error 

;skip next instruction 

; indicate Break Detected error 

;skip next instruction 

; Framing error 

;plus original RS-232 Status Register 

;makes new RS-232 Status Register 

; enable byte reception and exit 

;if byte received so far is non-zero 
; indicate framing error 
;or break detected error 
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EFE1 
EFE3 
EFE6 
EFE7 
EFE9 
EFEB 
EFEE 
EFFO 
EFF2 
EFF5 
EFF7 
EFF9 
EFFC 
EFFE 
FOOl 
F003 
F006 
F009 
FOOB 
FOOD 
FOOF 
F012 
F013 



F014 
F017 
FOIA 
FOIB 
FOIE 
F020 
F023 
F024 
F026 
F028 
F02B 
F02C 
F02E 
F030 
F033 
F036 
F039 
F03C 
F03F 
F041 
F044 
F047 
F049 
F04C 



2517 
2518 
859A 2519 
AD9402 2520 
4A 2521 
9029 2522 
A902 2523 
2C01DD 2524 
101D 2525 
D020 2526 
ADA102 2527 
2902 2528 
D0F9 2529 
2C01DD 2530 
70FB 2531 
AD01DD 2532 
0902 2533 

8a on :c;.' 

2C01DD 2535 
7007 2536 
30F9 2537 
A940 2538 
8D9702 2539 
18 2540 
60 2541 
2542 
2543 
2544 
2028F0 2545 
AC9E02 2546 
C8 2547 
CC9D02 2548 
F0F4 2549 
8C9E02 2550 
88 2551 
A59E 2552 
91F9 2553 
ADA102 2554 
4A 2555 
B01E 2556 
A910 2557 
8D0EDD 2558 
AD9902 2559 
8D04DD 2560 
AD9A02 2561 
8D05DD 2562 
A981 2563 
203BEF 2564 
2006EF 2565 
A911 2566 
8D0EDD 2567 
60 2568 



; output on RS-232 device 



JEFE1 



BEFF2 
BEFF9 

BF006 

BFOOD 
BF012 



STA 
LDA 
LSR 
BCC 
LDA 
BIT 
BPL 
BNE 
LDA 
AND 
BNE 
BIT 
BVS 
LDA 
ORA 
STA 
BIT 
BVS 
BMI 
LDA 
STA 
CLC 
RTS 



Z9A 

X0294 

A 

BF012 

$02 

XDD01 

BFOOD 

BF012 

X02A1 

$02 

BEFF2 

XDD01 

BEFF9 

XDD01 

$02 

XDD01 

XDD01 

BF012 

BF006 

$40 

X0297 



;set output device 
; check RS-232 Command Register 
;for 3-line or X-line meet 
;and skip if 3-line 



; indicate error if DSR signal missing 

;exit if RTS present 

; check ICR2 activity register 

;and loop until byte received 

;wait for CTS signal 



;set RTS signal 

;exit if CTS is high 

;loop if DSR is high 

;set DSR Signal Missing Error 

;in RS-232 Status Register 



; buffer character to output on RS-232 



BF014 JSR 

SF017 LDY 
INY 
CPY 
BEQ 
STY 
DEY 
LDA 
STA 

SF028 LDA 
LSR 
BCS 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
JSR 
LDA 
STA 

BF04C RTS 



SF028 
X029E 

X029D 
BF014 
X029E 

Z9E 

(ZF9),Y 

X02A1 

A 

BF04C 

$10 

XDDOE 

X0299 

XDD04 

X029A 

XDD05 

$81 

JEF3B 

BEF06 

$11 

XDDOE 



;schedule TA2 if not transmitting 

;if no room in the RS-232 buffer 

;wait until there is room 

;bump RS-232 transmit buffer output ptr 

;move buffered character 

; to transmsit buffer 

; check ICR2 activity register 

;if not transmitting, 

; force load into CRA2 

;move baud rate full bit time 

;into TAL2 

;and TAH2 

;set TA2 mask bit in ICR2 

; perform initialization for new byte 

;set force load and start TA2 in CRA2 
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2570 ; initialize RS-232 

2571 ; 



F04D 8599 


2572 


JF04D 


STA Z99 


F04F AD9402 


2573 




LDA 


X0294 


F052 4A 


2574 




LSR 


A 


F053 9028 


2575 




BCC 


BF07D 


F055 2908 


2576 




AND 


$08 


F057 F024 


2577 




BEQ 


BF07D 


F059 A902 


2578 




LDA 


$02 


F05B 2C01DD 


2579 




BIT 


XDD01 


F05E 10AD 


2580 




BPL 


BFOOD 


F060 F022 


2581 




BEQ 


BF084 


F062 ADA102 


2582 


BF062 


LDA X02A1 


F065 4A 


2583 




LSR 


A 


F066 BOFA 


2584 




BCS 


BF062 


F068 AD01DD 


2585 




LDA 


XDD01 


F06B 29FD 


2586 




AND 


$FD 


F06D 8D01DD 


2587 




STA 


XDD01 


F070 AD01DD 


2588 


BF070 


LDA 


XDD01 


F073 2904 


2589 




AND 


$04 


F075 F0F9 


2590 




BEQ 


BF070 


F077 A990 


2591 


BF077 


LDA 


$90 


F079 18 


2592 




CLC 




F07A 4C3BEF 


2593 
2594 


y 


JMP 


JEF3B 


F07D ADA102 


2595 


BF07D 


LDA 


X02A1 


F080 2912 


2596 




AND 


$12 


F082 F0F3 


2597 




BEQ 


BF077 


F084 18 


2598 


BF084 


CLC 




F085 60 


2599 
2600 


» 


RTS 






2601 


;get next 


character 




2602 


; 






F086 AD9702 


2603 


SF086 


LDA X0297 



F086 AD9702 


2603 


SF086 


LDA X0297 


F089 AC9C02 


2604 




LDY X029C 


F08C CC9B02 


2605 




CPY X029B 


F08F FOOB 


2606 




BEQ BF09C 


F091 29F7 


2607 




AND $F7 


F093 8D9702 


2608 




STA X0297 


F096 B1F7 


2609 




LDA (ZF7),Y 


F098 EE9C02 


2610 




INC X029C 


F09B 60 


2611 
2612 


» 


RTS 


F09C 0908 


2613 


BF09C 


ORA $08 


F09E 8D9702 


2614 




STA X0297 


F0A1 A900 


2615 




LDA $00 


F0A3 60 


2616 




RTS 



input 

;set input device 

; check RS-232 Command Register 

;for 3-line or X-line mode 

;and skip if 3-line 

; check for full/half duplex mode 

;and skip if full duplex 



;error if DSR signal not present 
; check ICR2 activity register 
;if not transmitting, 
; clear RTS line 

;walt for DSR 

;set Flag bit mask in ICR2 and return 

; fetch ICR2 activity register 

;if receiving/waiting for receiver edge, 

; set Flag mask 

from RS-232 input buffer 

;A - contents of RS-232 Status Register 

;if receiver buffer is empty, 

;set flag in RS-232 status register 

;else clear Receiver Buffer Empty flag 

;in RS-232 Status Register 

; fetch character from buffer 

;bump RS-232 receive buffer output ptr 



; indicate Receiver Buffer Empty 

;in RS-232 Status Register 

;and return with a null character 
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F0A4 
F0A5 
F0A8 
FOAA 
FOAD 
FOAF 
FOB1 
FOB3 
FOB6 
F0B8 
FOBB 
FOBC 



FOBD 
FOC9 
FOD4 
F0D8 
FOE7 
FOEB 
FOFA 
F106 
FlOE 
F116 
F120 
F127 



F12B 
F12D 
F12F 
F132 
F133 
F135 
F138 
F139 
F13A 
F13C 
F13D 



48 

ADA102 

FOll 

ADA102 

2903 

D0F9 

A910 

8D0DDD 

A900 

8DA102 

68 

60 



0D492F 
OD5345 
464F52 
0D5052 
544150 
505245 
504C41 
0D4C4F 
0D5341 
0D5645 
0D464F 
0D4F4B 



249D 

100D 

B9BDF0 

08 

297F 

20D2FF 

C8 

28 

10F3 

18 

60 



F13E A599 
F140 D008 
F142 A5C6 
F144 FOOF 
F146 78 
F147 4CB4E5 

F14A C902 
F14C D018 
F14E 8497 
F150 2086F0 
F153 A497 
F155 18 
F156 60 



2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 



;protect serial/cassette routine from RS-232 NMI's 



; save A 

;if no activity in ICR2 

;exit 



;else wait until not sending/receiving 

; clear Flag bit mask in ICR2 

; clear ICR2 activity register 
jrestore A 



SF0A4 PHA 

LDA X02A1 

BEQ BFOBB 
BFOAA LDA X02A1 

AND $03 

BNE BFOAA 

LDA $10 

STA XDDOD 

LDA $00 

STA X02A1 
BFOBB PLA 

RTS 

;Kemal 1/0 messages 



TFOBD .BY $OD,'I,'/,'0,' ,'E,'R,'R,'0,'R,' ,'#+$80 
TF0C9 .BY $0D,'S,'E,'A,'R,'C,'H,'I,'N,'G,' +$80 
TF0D4 .BY 'F.'O.'R,' +$80 
TF0D8 .BY $0D,'P,'R,'E,'S,'S,' ,'P,'L,'A,'Y,' ,'0,'N,' 

.BY 'T'A,'P,'E+$80 
TFOEB .BY 'P,'R,'E,'S,'S,' ,'R,'E,'C,'0,'R,'D,' ,'&,' 

.BY 'P,'L,'A,'Y,' ,'0,'N,' ,'T,'A,'P,'E+$80 
TF106 .BY $OD,'L,'0,'A,'D,'I,'N,'G+$80 
TF10E .BY $OD,'S,'A,'V,'I,'N,'G,' +$80 
TF116 .BY $0D,'V,'E,'R,'I,'F,'Y,'I,'N,'G+$80 
TF120 .BY $0D,'F,'0,'U,'N,'D,' +$80 
TF127 .BY $0D,'0,'K,$8D 
» 
; print kernal message indexed by Y 

;exit if not in direct mode 

; fetch a character from message table 



JF12B BIT Z9D 

BPL BF13C 

BF12F LDA TFOBD, Y 
PHP 

AND $7F 
JSR SFFD2 
INY 
PLP 
BPL BF12F 

BF13C CLC 
RTS 

> 

;get a character 

WF13E LDA Z99 

BNE BF14A 
LDA ZC6 
BEQ BF155 
SEI 
JMP SE5B4 

BF14A CMP $02 

BNE BF166 

SF14E STY Z97 

JSR SF086 
LDY Z97 

BF155 CLC 
RTS 



;strip bit 7 

;print character 

; advance index 

;if last char did not contain bit 7, 

; repeat 



;if input device 

;is the keyboard 

;and keyboard buffer 

;is not empty 

; disable IRQ 

;then fetch char from keyboard queue 

;if input device is RS-232 

;save Y 

;get a char from RS-232 input buffer 

:restore Y 
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2679 


; input a character 




2680 


> 






F157 A599 


2681 


WF157 


LDA 


Z99 


F159 DOOB 


2682 




BNE 


BF166 


F15B A5D3 


2683 




LDA 


ZD3 


F15D 85CA 


2684 




STA 


ZCA 


F15F A5D6 


2685 




LDA 


ZD6 


F161 85C9 


2686 




STA 


ZC9 


F163 4C32E6 


2687 
2688 


» 


JMP 


JE632 


F166 C903 


2689 


BF166 


CMP 


$03 


F168 D009 


2690 




BNE 


BF173 


F16A 85DO 


2691 




STA 


ZDO 


F16C A5D5 


2692 




LDA 


ZD5 


F16E 85C8 


2693 




STA 


ZC8 


F170 4C32E6 


2694 
2695 




JMP 


JE632 


F173 B038 


2696 


BF173 


BCS 


BF1AD 


F175 C902 


2697 




CMP 


$02 


F177 F03F 


2698 




BEQ 


BF1B8 


F179 8697 


2699 




SIX 


Z97 


F17B 2099F1 


2700 




JSR 


SF199 


F17E B016 


2701 




BCS 


BF196 


F180 48 


2702 




PI1A 




F181 2099F1 


2703 




JSR 


SF199 


F184 BOOD 


2704 




BCS 


BF193 


F186 D005 


2705 




BNE 


BF18D 


F188 A940 


2706 




LDA 


$40 


F18A 201CFE 


2707 




JSR 


SFE1C 


F18D C6A6 


2708 


BF18D 


DEC 


ZA6 


F18F A697 


2709 




LDX 


Z97 


F191 68 


2710 




PLA 




F192 60 


2711 
2712 


» 


RTS 




F193 AA 


2713 


BF193 


TAX 




F194 68 


2714 




PLA 




F195 8A 


2715 




TXA 




F196 A697 


2716 


BF196 


LDX 


Z97 


F198 60 


2717 




RTS 





;if the input device 

;is the keyboard 

;move position of cursor on line 

;to input cursor postion on line 

;move cursor line number 

;to input cursor line number 

;and go input from the keyboard 

;if input device is the screen 

;set screen/keyboard flag to screen 

jmove screen line length 

;to end of line pointer 

;and go input from the screen 

;if device > 3 (serial bus), handle 

;if input device is RS-232, handle 

; input device is tape, save X 

; fetch a byte from tape buffer 

;exit upon error 

;save byte on stack 

;look ahead in tape buffer 

;and exit upon error 

;if at end of file, 

;set end of file bit 

;in ST 

; adjust tape buffer ptr back to normal 

; restore X 

; restore byte read 



;set stack straight 

; restore X 

: error exit with C set 
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F199 
F19C 
F19E 
F1A1 
F1A3 
F1A5 
F1A7 
F1A9 
F1AB 
F1AC 



200DF8 

DOOB 

204 1F8 

BOH 

A900 

85A6 

FOFO 

B1B2 

18 

60 



F1AD A590 
F1AF F004 
F1B1 A90D 
F1B3 18 
F1B4 60 



F1B5 4C13EE 



F1B8 
F1BB 
F1BD 
F1BF 
F1C1 
F1C4 
F1C6 
F1C8 



204EF1 

B0F7 

C900 

D0F2 

AD9702 

2960 

D0E9 

FOEE 



2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 



;read a byte from the cassette buffer 



SF199 JSR SF80D 
BNE BF1A9 
JSR SF841 
BCS BF1B4 
LDA $00 
STA ZA6 
BEQ SF199 

BF1A9 LDA (ZB2), 
CLC 
RTS 

BF1AD LDA Z90 

BEQ BF1B5 
BF1B1 LDA $0D 
BF1B3 CLC 
BF1B4 RTS 



;add 1 to buffer pointer 
;if end of buffer, 
;read next block 
;and exit upon error 

; reset tape buffer pointer 

;and loop back 

; fetch byte from tape buffer 

; indicate no error 

;and return 

;if ST indicates Device Not Present 

; force a return 



;read a byte from the serial bus 

BF1B5 JMP JEE13 ;input byte from serial bus and return 

;read a byte from the RS-232 bus 

BF1B8 JSR SF14E ;get a char from RS-232 input buffer 

BCS BF1B4 ;exit upon error 
CMP $00 

BNE BF1B3 ;exit if receive buffer not empty 

LDA X0297 ;if RS-232 Status Register 

AND $60 ;indicates DSR Missing, 

BNE BF1B1 ; force a Return 

BEQ BF1B8 ;else repeat 
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2753 


joutput a character 




2754 


j 




F1CA 48 


2755 


WF1CA 


P11A 


F1CB A59A 


2756 




LDA Z9A 


F1CD C903 


2757 




CMP $03 


F1CF D004 


2758 




BNE BF1D5 


F1D1 68 


2759 




PLA 


F1D2 4C16E7 


2760 
2761 




JMP SE716 


F1D5 9004 


2762 


BF1D5 


BCC BF1DB 


F1D7 68 


2763 




PLA 


F1D8 4CDDED 


2764 
2765 




JMP JEDDD 


F1DB 4A 


2766 


BF1DB 


LSR A 


F1DC 68 


2767 




PLA 


F1DD 859E 


2768 


SF1DD 


STA Z9E 


F1DF 8A 


2769 




TXA 


F1E0 48 


2770 




PHA 


F1E1 98 


2771 




TYA 


F1E2 48 


2772 




PHA 


F1E3 9023 


2773 




BCC BF208 


F1E5 200DF8 


2774 




JSR SF80D 


F1E8 DOOE 


2775 




BNE BF1F8 


F1EA 2064F8 


2776 




JSR SF864 


F1ED BOOE 


2777 




BCS BF1FD 


FIEF A902 


2778 




LDA $02 


F1F1 AOOO 


2779 




LDY $00 


F1F3 91B2 


2780 




STA (ZB2),Y 


F1F5 C8 


2781 




INY 


F1F6 84A6 


2782 




STY ZA6 


F1F8 A59E 


2783 


BF1F8 


LDA Z9E 


FIFA 91B2 


2784 




STA (ZB2),Y 


F1FC 18 


2785 


JF1FC 


CLC 


F1FD 68 


2786 


BF1FD 


PLA 


FIFE A8 


2787 




TAY 


F1FF 68 


2788 




PLA 


F200 AA 


2789 




TAX 


F201 A59E 


2790 




LDA Z9E 


F203 9002 


2791 




BCC BF207 


F205 A900 


2792 




LDA $00 


F207 60 


2793 
2794 


BF207 


RTS 


F208 2017FO 


2795 


BF208 


JSR SF017 


F20B 4CFCF1 


2796 




JMP JF1FC 



;save character on stack 
;if output device 
;is the screen 

; restore character 
;and output to screen 

;if output device > 3 

; restore character 

;and output to serial bus 

;set C to 1 for cassette 
;move character to output 
;to temporary storage 



;save XY on stack 

;if output device is cassette 

;add one to tape buffer index 

;if buffer is full, (192 bytes) 

;write block to cassette 

;and exit upon error 

;use use Data code 

;in beginning of next tape buffer 

; initialize tape buffer pointer 
;move character to output 
;into the tape buffer 
; clear error flag 



;restore XY 

jrestore character just output 

;exit if no errors 

:else return with A=0 



;out a character to RS-232 channel 
;and exit 
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2798 


;set : 


Input devlc 






2799 


; 




F20E 


200FF3 


2800 


WF20E 


JSR SF30F 


F211 


F003 


2801 




BEQ BF216 


F213 


4C01F7 


2802 
2803 




JMP JF701 


F216 


201FF3 


2804 


BF216 


JSR SF31F 


F219 


A5BA 


2805 




LDA ZBA 


F21B 


F016 


2806 




BEQ BF233 


F21D 


C903 


2807 




CMP $03 


F21F 


F012 


2808 




BEQ BF233 


F221 


B014 


2809 




BCS BF237 


F223 


C902 


2810 




CMP $02 


F225 


D003 


2811 




BNE BF22A 


F227 


4C4DF0 


2812 
2813 




JMP JF04D 


F22A A6B9 


2814 


BF22A 


LDX ZB9 


F22C 


E060 


2815 




CPX $60 


F22E 


F003 


2816 




BEQ BF233 


F230 


4C0AF7 


2817 
2818 


» 


JMP JF70A 


F233 


8599 


2819 


BF233 


STA Z99 


F235 


18 


2820 




CLC 


F236 


60 


2821 
2822 


> 


RTS 






2823 


;set 


serial bus 






2824 


; 




F237 


AA 


2825 


BF237 


TAX 


F238 


2009ED 


2826 




JSR SED09 


F23B 


A5B9 


2827 




LDA ZB9 


F23D 


1006 


2828 




BPL BF245 


F23F 


20CCED 


2829 




JSR SEDCC 


F242 


4C48F2 


2830 
2831 




JMP JF248 


F245 


20C7ED 


2832 


BF245 


JSR SEDC7 


F248 


8A 


2833 


JF248 


TXA 


F249 


2490 


2834 




BIT Z90 


F24B 


10E6 


2835 




BPL BF233 


F24D 


4C07F7 


2836 




JMP JF707 



; check X against logical file table 

;if not matched, 

; indicate File Not Open 

;set logical file, device and sec. adr 

;if device is keyboard, 

;exit 

;if device is screen, 

;exit 

jhandle if device is serial bus (> 3) 

;if device is RS-232, 
; initialize RS-232 input 

;if input device is tape and sec. adr 
; indicates that this is an input file 
; great, 
;else indicate Not Input File Error 

;set input device 
; clear error flag 



;send TALK on serial bus 

;if secondary address specified, 

;send it 

;else send dummy secondary address 



;send secondard addr (after TALK) 



;if ST shows device present, exit 
;else indicate error 
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2838 


;set 


output dev 




2839 


; 






F250 200FF3 


2840 


WF250 


JSR 


SF30F 


F253 F003 


2841 




BEQ 


BF258 


F255 4C01F7 


2842 
2843 




JMP 


JF701 


F258 201FF3 


2844 


BF258 


JSR 


SF31F 


F25B A5BA 


2845 




LDA 


ZBA 


F25D D003 


2846 




BNE 


BF262 


F25F 4C0DF7 


2847 
2848 


BF25F 


JMP 


JF70D 


F262 C903 


2849 


BF262 


CMP 


$03 


F264 FOOF 


2850 




BEQ 


BF275 


F266 BOll 


2851 




BCS 


BF279 


F268 C902 


2852 




CMP 


$02 


F26A D003 


2853 




BNE 


BF26F 


F26C 4CE1EF 


2854 
2855 


» 


JMP 


JEFE1 


F26F A6B9 


2856 


BF26F 


LDX 


ZB9 


F271 E060 


2857 




CPX 


$60 


F273 FOEA 


2858 




BEQ 


BF25F 


F275 859A 


2859 


BF275 


STA 


Z9A 


F277 18 


2860 




CLC 




F278 60 


2861 
2862 




RTS 






2863 


j set 


serial bus 




2864 


i 






F279 AA 


2865 


BF279 


TAX 




F27A 200CED 


2866 




JSR 


SEDOC 


F27D A5B9 


2867 




LDA 


ZB9 


F27F 1005 


2868 




BPL 


BF286 


F281 20BEED 


2869 




JSR 


SEDBE 


F284 D003 


2870 




BNE 


BF289 


F286 20B9ED 


2871 


BF286 


JSR 


SEDB9 


F289 8A 


2872 


BF289 


TXA 




F28A 2490 


2873 




BIT 


Z90 


F28C 10E7 


2874 




BPL 


BF275 


F28E 4C07F7 


2875 




JMP 


JF707 



; check X against logical file table 

;File Not Open Error if not found 

;set logical file, device and sec. adr 

;if current device 

; indicates an input file 

; error Not Output File 

if device is the screen 

exit 

if serial bus device, handle 

if device is RS-232 

; initialize RS-232 output 

;if secondary address 
{indicates an input file 
;Not Output File Error 
Xstore output device 
; clear error indication 



;send LISTEN on serial bus 

;if secondary address specified, 

;send it 

;else send dummy secondary address 

;skip next instruction 

;send secondary addr after LISTEN 

; check ST 

;and set output device if no errors 

j else indicate Device Not Present Error 
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2877 


; CLOSE a file 




2878 


> 




F291 2014F3 


2879 


WF291 


JSR SF314 


F294 F002 


2880 




BEQ BF298 


F296 18 


2881 




CLC 


F297 60 


2882 
2883 




RTS 


F298 201FF3 


2884 


BF298 


JSR SF31F 


F29B 8A 


2885 




TXA 


F29C 48 


2886 




PHA 


F29D A5BA 


2887 




LDA ZBA 


F29F F050 


2888 




BEQ BF2F1 


F2A1 C903 


2889 




CMP $03 


F2A3 F04C 


2890 




BEQ BF2F1 


F2A5 B047 


2891 




BCS BF2EE 


F2A7 C902 


2892 




CMP $02 


F2A9 D01D 


2893 




BNE BF2C8 


F2AB 68 


2894 




PLA 


F2AC 20F2F2 


2895 




JSR SF2F2 


F2AF 2083F4 


2896 




JSR SF483 


F2B2 2027FE 


2897 




JSR SFE27 


F2B5 A5F8 


2898 




LDA ZF8 


F2B7 F001 


2899 




BEQ BF2BA 


F2B9 C8 


2900 




INY 


F2BA A5FA 


2901 


BF2BA 


LDA ZFA 


F2BC F001 


2902 




BEQ BF2BF 


F2BE C8 


2903 




INY 


F2BF A900 


2904 


BF2BF 


LDA $00 


F2C1 85F8 


2905 




STA ZF8 


F2C3 85FA 


2906 




STA ZFA 


F2C5 4C7DF4 


2907 




JMP JF47D 



; check A against logical file table 
; continue if found 
;else exit 



;set logical file, device and sec. adr 

;save file index 

;if current device is keyboard 



;or screen, skip to end 

;if serial bus device (> 3), handle 

;if RS-232 device, 

; restore file index 

; re-organize file tables 

; re-initialize CIA2 

;read top of memory into XY 

;if high byte of RS-232 receive buffer 

;base address is not 0, 

;add 1 to high byte of top of memory 

;if high byte of RS-232 transmit buffer 

;base address is not 

;add 1 to high byte of top of memory 

; clear high byte of RS-232 

; receive and transmit buffer 

;base addresses 

;set new top of memory from XY 
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F2C8 
F2CA 
F2CC 
F2CE 
F2D1 
F2D3 
F2D4 
F2D7 
F2DA 
F2DC 
F2DD 
F2DF 



A5B9 

290F 

F023 

20D0F7 

A900 

38 

20DDF1 

2064F8 

9004 

68 

A900 

60 



F2E0 A5B9 
F2E2 C962 
F2E4 D0OB 
F2E6 A905 
F2E8 206AF7 
F2EB 4CF1F2 



F2EE 2042F6 
F2F1 68 



F2F2 
F2F3 
F2F5 
F2F7 
F2F9 
F2FB 
F2FE 
F301 
F304 
F307 
F30A 
F30D 
F30E 



AA 

C698 

E498 

F014 

A498 

B95902 

9D5902 

B96302 

9D6302 

B96D02 

9D6D02 

18 

60 



2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 



; close cassette device 



BF2C8 LDA ZB9 
AND $0F 
BEQ BF2F1 
JSR SF7D0 
LDA $00 
SEC 

JSR SF1DD 
JSR SF864 
BCC BF2E0 
PLA 

LDA $00 
RTS 

J 

BF2E0 LDA ZB9 
CMP $62 
BNE BF2F1 
LDA $05 
JSR SF76A 
JMP BF2F1 



;lf secondary address 

; indicates an input file, 

;skip following 

;else get tape buffer pointer in XY 



;close file with a $00 
;write last block to cassette 

;and return with C set upon error 



;if secondary address indicates that 
;E0T marker to be written, 

;write special block to tape with EOT 
;then re-organize file tables 



; close serial bus device 



BF2EE JSR SF642 
BF2F1 PLA 



; close serial bus device 
; restore file index 



; re-organize file tables 



SF2F2 TAX 

DEC Z98 
CPX Z98 
BEQ BF30D 
LDY Z98 
LDA X0259.Y 
STA X0259.X 
LDA X0263.Y 
STA X0263.X 
LDA X026D.Y 
STA X026D.X 

BF30D CLC 
RTS 



{decrement # files open 

;exit if all files closed 

;else move parameters of last entry 
;(file, device and secondary address) 
;to slot of file being closed 
;this removes file being closed 
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2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 



; check X against logical file table 



F30F A900 

F311 8590 

F313 8A 

F314 A698 

F316 CA 

F317 3015 

F319 DD5902 2960 

F31C D0F8 2961 

F31E 60 2962 

2963 

2964 

2965 

F31F BD5902 2966 

F322 85B8 2967 

F324 BD6302 2968 

F327 85BA 2969 

F329 BD6D02 2970 

F32C 85B9 2971 

F32E 60 2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

F333 A203 2981 

F335 E49A 2982 

F337 B003 2983 

F339 20FEED 2984 

F33C E499 2985 

F33E B003 2986 

F340 20EFED 2987 

F343 869A 2988 

F345 A900 2989 

F347 8599 2990 

F349 60 2991 



SF30F LDA $00 
STA Z90 
TXA 

SF314 LDX Z98 

BF316 DEX 

BMI BF32E 
CMP X0259.X 
BNE BF316 
RTS 



; clear status word ST 

;use # of files open to begin search 

;exit if file not found 

;repeat if not matched 



;set file parameters depending on X 



;set current logical file 

;set current device 

;set current secondary address 



F32F A900 
F331 8598 



SF31F LDA X0259.X 

STA ZB8 

LDA X0263.X 

STA ZBA 

LDA X026D.X 

STA ZB9 
BF32E RTS 

> 

; close all files 

WF32F LDA $00 

STA Z98 ; clear number of files open 

; restore I/O to default devices 



WF333 LDX $03 
CPX Z9A 
BCS BF33C 
JSR SEDFE 

BF33C CPX Z99 

BCS BF343 
JSR SEDEF 

BF343 STX Z9A 
LDA $00 
STA Z99 
RTS 



;if output device is not; the serial bus 

;send UNLISTEN on serial bus 

;if input device is not on serial bus, 

;send TALK on serial bus 
;set output device to screen 

;set input device to keyboard 
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F34A A6B8 
F34C D003 
F34E 4COAF7 

F351 200FF3 
F354 D003 
F356 4CFEF6 

F359 A698 
F35B EOOA 
F35D 9003 
F35F 4CFBF6 



F362 
F364 
F366 
F369 
F36B 
F36D 
F36F 
F372 
F374 
F377 
F379 
F37B 
F37D 
F37F 
F382 
F384 
F386 
F388 



E698 

A5B8 

9D5902 

A5B9 

0960 

85B9 

9D6D02 

A5BA 

9D6302 

F05A 

C903 

F056 

9005 

20D5F3 

904F 

C902 

D003 

4C09F4 



F38B 20D0F7 
F38E B003 
F390 4C13F7 



F393 
F395 
F397 
F399 
F39C 
F39E 
F3A1 
F3A3 
F3A5 
F3A8 
F3AA 
F3AC 



A5B9 

290F 

D01F 

2017F8 

B036 

20AFF5 

A5B7 

FOOA 

20EAF7 

9018 

F028 

4C04F7 



F3AF 202CF7 
F3B2 F020 
F3B4 900C 
F3B6 B0F4 



2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 



;0PEN a file 

WF34A LDX ZB8 

BNE BF351 
JMP JF70A 

BF351 JSR SF30F 
BNE BF359 
JMP JF6FE 

BF359 LDX Z98 
CPX $0A 
BCC BF362 
JMP JF6FB 



BF362 INC 
LDA 
STA 
LDA 
ORA 
STA 
STA 
LDA 
STA 
BEQ 
CMP 
BEQ 
BCC 
JSR 
BCC 

BF384 CMP 
BNE 
JMP 



Z98 

ZB8 

X0259.X 

ZB9 

$60 

ZB9 

X026D.X 

ZBA 

X0263.X 

BF3D3 

$03 

BF3D3 

BF384 

SF3D5 

BF3D3 

$02 

BF38B 

JF409 



;lf current logical file is 

; indicate Not Input File Error 

; check X against logical file table 
;if found, 
;File Open Error 

;if it files open is 10 or more, 

;Too Many Files Error 

;add 1 to It files open 

;add current logical file 

;to end of table of logical files open 

;add secondary address 

;plus offset 

;to create current secondary address. 

;and enter into secondary address table 

;add current device 

; to current device table 

;and exit if device is keyboard 

;or screen 

;for serial device (> 3), perform open 
;JMP 

;for RS-232 device, perform open 



;open for cassette device 

BF38B JSR SF7D0 ;get tape buffer address in XY 

BCS BF393 ;if address too low, 

JMP JF713 ;indicate Illegal Device it 

BF393 LDA ZB9 ;get current secondary address 

AND $0F ;mask low order 4 bits 

BNE BF3B8 ;skip if open for output 

JSR SF817 ;handle msgs for cassette read 

BCS BF3D4 ;exit upon error 

JSR SF5AF ; handle messages for load 

LDA ZB7 ;get t characters in file name 
BEQ BF3AF 

JSR SF7EA ;if name present, search tape for file 

BCC BF3C2 ;if not matched 

BEQ BF3D4 ;and not end of tape, 

BF3AC JMP JF704 ;File Not Found Error 

> 

BF3AF JSR SF72C ; since no name, get next tape data 

BEQ BF3D4 ;exit if end of tape 

BCC BF3C2 ;if no errors, continue 

BCS BF3AC ;else indicate File Not Found Error 
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3051 ;open cassette for output 

3052 ; 



F3B8 2038F8 


3053 1 


3F3B8 


JSR 


SF838 


F3BB B017 


3054 




BCS 


BF3D4 


F3BD A904 


3055 




LDA $04 


F3BF 206AF7 


3056 




JSR 


SF76A 


F3C2 A9BF 


3057 : 


BF3C2 


LDA 


$BF 


F3C4 A4B9 


3058 




LDY 


ZB9 


F3C6 C060 


3059 




CPY 


$60 


F3C8 F007 


3060 




BEQ 


BF3D1 


F3CA A000 


3061 




LDY 


$00 


F3CC A902 


3062 




LDA $02 


F3CE 91B2 


3063 




STA 


(ZB2),Y 


F3D0 98 


3064 




TYA 




F3D1 85A6 


3065 


BF3D1 


STA 


ZA6 


F3D3 18 


3066 


BF3D3 


CLC 




F3D4 60 


3067 
3068 


BF3D4 


RTS 






3069 


;open 


for 


serial t 




3070 


; 






F3D5 A5B9 


3071 


SF3D5 


LDA 


ZB9 


F3D7 30FA 


3072 




BMI 


BF3D3 


F3D9 A4B7 


3073 




LDY 


ZB7 


F3DB F0F6 


3074 




BEQ 


BF3D3 


F3DD A900 


3075 




LDA $00 


F3DF 8590 


3076 




STA 


Z90 


F3E1 A5BA 


3077 




LDA 


ZBA 


F3E3 200CED 


i 3078 




JSR 


SEDOC 


F3E6 A5B9 


3079 




LDA 


ZB9 


F3E8 09F0 


3080 




ORA 


$F0 


F3EA 20B9ED 


i 3081 




JSR 


SEDB9 


F3ED A590 


3082 




LDA 


Z90 


F3EF 1005 


3083 




BPL 


BF3F6 


F3F1 68 


3084 




PLA 




F3F2 68 


3085 




PLA 




F3F3 4C07F7 


3086 
3087 




JMP 


JF707 


F3F6 A5B7 


3088 


BF3F6 


LDA 


ZB7 


F3F8 F00C 


3089 




BEQ 


BF406 


F3FA A000 


3090 




LDY 


$00 


F3FC BIBB 


3091 


BF3FC 


I LDA 


(ZBB),Y 


F3FE 20DDEI 


I 3092 




JSR 


JEDDD 


F401 C8 


3093 




INY 




F402 C4B7 


3094 




CPY 


ZB7 


F404 D0F6 


3095 




BNE 


BF3FC 


F406 4C54F6 


i 3096 


BF406 


i JMP 


JF654 



;handle msgs for cassette write 
;exit upon error 

;write block with Data Header code 
initialize buffer index 
; check secondary address 
;if tape opened for output 



;put code for Data Block 
;into first byte of buffer 

; initialize tape buffer pointer 



;if current secondary address invalid, 

;exit 

;if name not present, 

;exit 

;else clear ST 

;set current device 

;send UNLISTEN on serial bus 

;send current secondary address 

;plus offset 

;on serial bus 

; check ST 

;if Device Not Present, 

; delete own return address 

; indicate Device Not Present 

;if file name present 

; initialize index 

;send file name on serial bus 



;repeat for all characters of file name 
;send UNLISTEN on serial bus and exit 
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3098 


;0PEN 


RS-2 


32 device 




3099 


» 






F409 2083F4 


3100 


JF409 


JSR 


SF483 


F40C 8C9702 


3101 




STY 


X0297 


F40F C4B7 


3102 


BF40F 


CPY 


ZB7 


F411 FOOA 


3103 




BEQ 


BF41D 


F413 BIBB 


3104 




LDA 


(ZBB),Y 


F415 999302 


3105 




STA 


X0293.Y 


F418 C8 


3106 




INY 




F419 C004 


3107 




CPY 


$04 


F41B D0F2 


3108 




BNE 


BF40F 


F41D 204AEF 


3109 


BF41D 


JSR SEF4A 


F420 8E9802 


3110 




STX 


X0298 


F423 AD9302 


3111 




LDA 


X0293 


F426 290F 


3112 




AND 


$0F 


F428 F01C 


3113 




BEQ 


BF446 


F42A OA 


3114 




ASL 


A 


F42B AA 


3115 




TAX 




F42C ADA602 


3116 




LDA 


X02A6 


F42F D009 


3117 




BNE 


BF43A 


F431 BCC1FE 


3118 




LDY 


TFEC2-1.X 


F434 BDCOFE 


3119 




LDA 


TFEC2-2.X 


F437 4C40F4 


3120 
3121 


I 


JMP 


JF440 


F43A BCEBE4 


3122 


BF43A LDY 


TE4EC-1.X 


F43D BDEAE4 


3123 




LDA 


TE4EC-2.X 


F440 8C9602 


3124 


JF440 


STY 


X0296 


F443 8D9502 


3125 




STA 


X0295 


F446 AD9502 


3126 


BF446 


LDA X0295 


F449 OA 


3127 




ASL 


A 


F44A 202EFF 


3128 




JSR 


SFF2E 


F44D AD9402 


3129 




LDA X0294 


F450 4A 


3130 




LSR 


A 


F451 9009 


3131 




BCC 


BF45C 


F453 AD01DD 


3132 




LDA 


XDD01 


F456 OA 


3133 




ASL 


A 


F457 B003 


3134 




BCS 


BF45C 


F459 200DF0 


3135 
3136 




JSR 


BFOOD 


F45C AD9B02 


3137 


BF45C 


LDA X029B 


F45F 8D9C02 


3138 




STA X029C 


F462 AD9E02 


3139 




LDA 


X029E 


F465 8D9D02 


3140 




STA 


X029D 


F468 2027FE 


3141 




JSR 


SFE27 


F46B A5F8 


3142 




LDA 


ZF8 


F46D D005 


3143 




BNE 


BF474 


F46F 88 


3144 




DEY 




F470 84F8 


3145 




STY 


ZF8 


F472 86F7 


3146 




STX 


ZF7 


F474 A5FA- 


3147 


BF474 


LDA 


ZFA 


F476 D005 


3148 




BNE 


JF47D 


F478 88 


3149 




DEY 




F479 84FA 


3150 




STY 


ZFA 


F47B 86F9 


3151 




STX 


ZF9 


F47D 38 


3152 


JF47D 


SEC 




F47E A9F0 


3153 




LDA 


$F0 


F480 4C2DFE 


3154 




JMP 


JFE2D 



initialize CIA2 

; clear RS-232 Status Register 

;if pseudo file name present, 

;set Control & Command registers 
;and possible non-standard baud rate 



; fetch word length and move to 

jnumber of bits to send 

; check RS-232 Control Register 

;if standard baud rate specified, 
; calculate index into table 

;if US machine 

;use US table of baud rate 

;go set baud rate 

;use Intl table of baud rate factors 
;to fetch baud rate factor 
;set baud rate factor 
;low byte also 



; continue to compute baud rate 
;check RS-232 Command Register 
;for 3-line or X-line mode 
;and skip if in 3-line mode 



j continue if DSR present, else 
;DSR Signal Missing Error 

;move RS-232 receive buffer input ptr 

;to RS-232 receive buffer output ptr 

;move RS-232 transmit buffer input ptr 

;to RS-232 transmit buffer output ptr 

-; fetch top of memory in XY 

;if high byte of RS-232 receive buffer 

;base address not initialized yet, 

; subtract 1 from top of memory address 

;use top of memory address to 

; initialize receive buffer base address 

;same operation for transmit buffer 

;base address 



; reset top of memory pointers from XY 
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3156 


initialize CIA2 




3157 






F483 A97F 


3158 SF483 


LDA $7F 


F485 8D0DDD 


3159 




STA XDDOD 


F488 A906 


3160 




LDA $06 


F48A 8D03DD 


3161 




STA XDD03 


F48D 8D01DD 


3162 




STA XDD01 


F490 A904 


3163 




LDA $04 


F492 ODOODD 


3164 




ORA XDDOO 


F495 8DOODD 


3165 




STA XDDOO 


F498 AOOO 


3166 




LDY $00 


F49A 8CA102 


3167 




STY X02A1 


F49D 60 


3168 
3169 




RTS 




3170 


;load 


RAM from a 




3171 


; 




F49E 86C3 


3172 


JF49E 


STX ZC3 


F4A0 84C4 


3173 




STY ZC4 


F4A2 6C3003 


3174 
3175 




JMP (X0330) 




3176 


; standard load RA 




3177 


; 




F4A5 8593 


3178 


HF4A5 


STA Z93 


F4A7 A900 


3179 




LDA $00 


F4A9 3590 


3180 




STA Z90 


F4AB A5BA 


3181 




LDA ZBA 


F4AD D003 


3182 




BNE BF4B2 


F4AF 4C13F7 


3183 
3184 


BF4AF 


JMP JF713 


F4B2 C903 


3185 


BF4B2 


CMP $03 


F4B4 F0F9 


3186 




BEQ BF4AF 


F4B6 907B 


3187 




BCC BF533 


F4E8 A4B7 


3188 




LDY ZB7 


F4BA D003 


3189 




BNE BF4BF 


F4BC 4C10F7 


3190 
3191 




JMP JF710 


F4BF A6B9 


3192 


BF4BF 


LDX ZB9 


F4C1 20AFF5 


3193 




JSR SF5AF 


F4C4 A960 


3194 




LDA $60 


F4C6 85B9 


3195 




STA ZB9 


F4C8 20D5F3 


3196 




JSR SF3D5 


F4CB A5BA 


3197 




LDA ZBA 


F4CD 2009ED 


3198 




JSR SED09 


F4D0 A5B9 


3199 




LDA ZB9 


F4D2 20C7ED 


3200 




JSR SEDC7 


F4D5 2013EE 


3201 




JSR JEE13 


F4D8 85AE 


3202 




STA ZAE 


F4DA A590 


3203 




LDA Z90 


F4DC 4A 


3204 




LSR A 


F4DD 4A 


3205 




LSR A 


F4LE B050 


3206 




BCS BF530 


F4E0 2013EE 


3207 




JSR JEE13 


F4E3 85AF 


3208 




STA ZAF 


F4E5 8A 


3209 




TXA 


F4E6 D008 


3210 




BNE BF4F0 


F4E8 A5C3 


3211 




LDA ZC3 


F4EA 85AE 


3212 




STA ZAE 


F4EC A5C4 


3213 




LDA ZC4 


F4EE 85AF 


3214 




STA ZAF 


F4F0 20D2F5 


3215 


BF4F0 JSR SF5D2 



; clear any pending IRQ's in ICR2 

;PB2 bits 1 and 2 as outputs 
;set DTR and RTS high 



;set RS-232 output to high (idle) 
; clear ICR2 activity register 

vice 

;set destination address from XY 

;load RAM (normally F4A5) 
entry 

; set load/verify switch to load 

; clear ST 

; if current device is the keyboard (0) 

; indicate Illegal Device It Error 

if current device is the screen 

indicate error 

if not serial bus device 

and if no file name, 

; indicate File Name Missing Error 

;move X to secondary address 

; handle load messages 

; set current secondary address 

; perform open of serial bus device 

;let A = current device 

; send TALK on serial bus 

; fetch secondary address 

;and send on serial bus 

; input a byte on serial bus 

; set I/O end address 



;if ST doesn't indicate a timeout (read) 
; input a byte on serial bus 
; set high byte of end address 

;if EOI is not low, 
;use destination address 
;as end address 
; ditto for high byte 

; print LOAD or VERIFY 
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F4F3 A9FD 


3216 


BF4F3 


LDA 


$FD 


F4F5 2590 


3217 




AND 


Z90 


F4F7 8590 


3218 




STA 


Z90 


F4F9 20E1FF 


3219 




JSR 


SFFE1 


F4FC D003 


3220 




BNE 


BF501 


F4FE 4C33F6 


3221 
3222 




JMP 


JF633 


F501 2013EE 


3223 


BF501 


JSR 


JEE13 


F504 AA 


3224 




TAX 




F505 A590 


3225 




LDA 


Z90 


F507 4A 


3226 




LSR 


A 


F508 4A 


3227 




LSR 


A 


F509 B0E8 


3228 




BCS 


BF4F3 


F50B 8 A 


3229 




TXA 




F50C A493 


3230 




LDY 


Z93 


F50E FOOC 


3231 




BEQ 


BF51C 


F510 A000 


3232 




LDY 


$00 


F512 D1AE 


3233 




CMP 


(ZAE),Y 


F514 F008 


3234 




BEQ 


BF51E 


F516 A910 


3235 




LDA 


$10 


F518 201CFE 


3236 




JSR 


SFE1C 


F51B 2C 


3237 




.BY 


$2C 


F51C 91AE 


3238 


BF51C 


STA 


(ZAE),Y 


F51E E6AE 


3239 


BF51E 


INC 


ZAE 


F520 D002 


3240 




BNE 


BF524 


F522 E6AF 


3241 




INC 


ZAF 


F524 2490 


3242 


BF524 


BIT 


Z90 


F526 50CB 


3243 




BVC 


BF4F3 


F528 20EFED 


3244 




JSR 


SEDEF 


F52B 2042F6 


3245 




JSR 


SF642 


F52E 9079 


3246 




BCC 


BF5A9 


F530 4C04F7 


3247 
3248 


BF530 


JMP 


JF704 


F533 4A 


3249 


BF533 


LSR 


A 


F534 B003 


3250 




BCS 


BF539 


F536 4C13F7 


3251 
3252 


» 


JMP 


JF713 


F539 20D0F7 


3253 


BF539 


JSR 


SF7D0 


F53C B003 


3254 




BCS 


BF541 


F53E 4C13F7 


3255 
3256 




JMP 


JF713 


F541 2017F8 


3257 


BF541 


JSR 


SF817 


F544 B068 


3258 




BCS 


BF5AE 


F546 20AFF5 


3259 




JSR 


SF5AF 


F549 A5B7 


3260 


BF549 


LDA 


ZB7 


F54B F009 


3261 




BEQ 


BF556 


F54D 20EAF7 


3262 




JSR 


SF7EA 


F550 900B 


3263 




BCC 


BF55D 


F552 F05A 


3264 




BEQ 


BF5AE 


F554 BODA 


3265 




BCS 


BF530 


F556 202CF7 


3266 


BF556 


JSR SF72C 


F559 F053 


3267 




BEQ 


BF5AE 


F55B B0D3 


3268 




BCS 


BF530 


F55D A590 


3269 


BF55D 


LDA 


Z90 


F55F 2910 


3270 




AND 


$10 


F561 38 


3271 




SEC 




F562 D04A 


3272 




BNE 


BF5AE 


F564 E001 


3273 




CPX 


$01 


F566 F011 


3274 




BEQ 


BF579 


F568 E003 


3275 




CPX $03 



jclear timeout (read) bit 
;in ST 

; check, for Stop key 
;if depressed 
; abort load 

; input a byte on serial bus 

;if Timeout (read) set in ST 

; abort load 

;if in verify mode 

; compare byte read to memory 



;and set verify error upon mismatch 
;skip next instruction 
;load byte to memory 
;bump load address 



;if not end of file, 

; repeat 

;else sent TALK on serial bus 

; close serial bus 

;and exit 

; indicate File Not Found Error 

;if input device is not 1 (cassette) 

; indicate Illegal Device # 

; fetch tape buffer pointer 

;if invalid, indicate Illegal Device # 

;display msgs and test buttons for read 

; handle load messages 
;if file name present 

; search tape for file name 

;if no errors, continue 

;exit if end of tape 

; error if not found 

; since no file name, get, next tape hdr 

;exit if end of tape found 

; indicate File Not Found Error 

; check ST for unrecoverable read error 



;and exit if so 

;if not Program Header 
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F56A 

F56C 

F56E 

F570 

F572 

F573 

F575 

F577 

F579 

F57B 

F57D 

F57F 

F581 

F583 

F585 

F586 

F588 

F58A 

F58C 

F58E 

F58F 

F590 

F591 

F593 

F595 

F596 

F598 

F59A 

F59C 

F59E 

F5A0 

F5A2 

F5A5 

F5A8 

F5A9 

F5AA 

F5AC 

F5AE 



DODD 

AOOl 

BIB2 

85C3 

C8 

B1B2 

85C4 

B004 

A5B9 

DOEF 

A003 

B1B2 

AOOl 

F1B2 

AA 

A004 

B1B2 

A002 

F1B2 

A8 

18 

8A 

65C3 

85AE 

98 

65C4 

85AF 

A5C3 

85C1 

A5C4 

85C2 

20D2F5 

204AF8 

24 

18 

A6AE 

A4AF 

60 



3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 



BNE 

BF56C LDY 

LDA 

STA 

INY 

LDA 

STA 

BCS 

BF579 LDA 

BNE 

BF57D LDY 

LDA 

LDY 

SBC 

TAX 

LDY 

LDA 

LDY 

SBC 

TAY 

CLC 

TXA 

ADC 

STA 

TYA 

ADC 

STA 

LDA 

STA 

LDA 

STA 

JSR 

JSR 

.BY 

BF5A9 CLC 

LDX 

LDY 

BF5AE RTS 



BF549 
$01 

(ZB2),Y 
ZC3 

(ZB2),Y 

ZC4 

BF57D 

ZB9 

BF56C 

$03 

(ZB2),Y 

$01 

(ZB2),Y 

$04 

(ZB2),Y 
$02 
(ZB2),Y 



ZC3 
ZAE 

ZC4 

ZAF 

ZC3 

ZC1 

ZC4 

ZC2 

SF5D2 

SF84A 

$24 

ZAE 
ZAF 



; reset load address from tape buffer 
;high byte also 

; index low byte of end address 
;compute length of block to load 



;and set end address of I/O area 



;set tape load address 



; display load messages 

;load from cassette 

;skip next instruction 

; clear error flag 

;exit with end address in XY 
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3315 


; handle messages 1 




3316 


; 






F5AF A59D 


3317 


SF5AF 


LDA 


Z9D 


F5B1 101E 


3318 




BPL 


BF5D1 


F5B3 AOOC 


3319 




LDY 


$0C 


F5B5 202FF1 


3320 




JSR 


BF12F 


F5B8 A5B7 


3321 




LDA 


ZB7 


F5BA F015 


3322 




BEQ 


BF5D1 


F5BC A017 


3323 




LDY 


$17 


F5BE 202FF1 


3324 




JSR 


BF12F 


F5C1 A4B7 


3325 


JF5C1 


LDY 


ZB7 


F5C3 FOOC 


3326 




BEQ 


BF5D1 


F5C5 AOOO 


3327 




LDY 


$00 


F5C7 BIBB 


3328 


BF5C7 


LDA 


(ZBB),Y 


F5C9 20D2FF 


3329 




JSR 


SFFD2 


F5CC C8 


3330 




INY 




F5CD C4B7 


3331 




CPY 


ZB7 


F5CF DOF6 


3332 




BNE 


BF5C7 


F5D1 60 


3333 
3334 


BF5D1 


RTS 






3335 


{handle Load/Veri: 




3336 


j 






F5D2 A049 


3337 


SF5D2 


LDY 


$49 


F5D4 A593 


3338 




LDA 


Z93 


F5D6 F002 


3339 




BEQ 


BF5DA 


F5D8 A059 


3340 




LDY 


$59 


F5DA 4C2BF1 


3341 


BF5DA 


JMP 


JF12B 



;exlt If In Run mode 

; print SEARCHING 

;lf file name Is present, 



; print FOR 

;lf file name is present 



; print file name 



; repeat for all characters in name 



; assume Load 



; change to Verify if flag is non-zero 
; display message and return 
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F5DD 86AE 

F5DF 84AF 

F5E1 AA 

F5E2 B500 

F5E4 85C1 

F5E6 B501 

F5E8 85C2 

F5EA 6C3203 3352 
3353 
3354 
3355 
3356 
3357 



3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 



;Save RAM to a device 

JF5DD STX ZAE ;set end of I/O area from XY 
STY ZAF 

TAX ;A = index to start address 

LDA ZOO.X 

STA ZC1 ;move start address to ZC1/2 
LDA Z01.X 
STA ZC2 
JMP (X0332) ;perfora Save (normally F5ED) 



3360 
3361 
3362 
3363 
3364 
3365 
3366 



F5ED A5BA 
F5EF D003 
F5F1 4C13F7 3358 

3359 
F5F4 C903 
F5F6 F0F9 
F5F8 905F 
F5FA A961 
F5FC 85B9 
F5FE A4B7 
F600 D003 
F602 4C10F7 3367 

3368 
F605 20D5F3 3369 
F608 208FF6 3370 
F60B A5BA 3371 
F60D 200CED 3372 
F610 A5B9 3373 
F612 20B9ED 3374 
F615 A000 3375 
F617 208EFB 3376 
F61A A5AC 3377 
F61C 20DDED 3378 
F61F A5AD 3379 
F621 20DDED 3380 
F624 20D1FC 3381 
F627 B016 3382 
F629 B1AC 3383 
F62B 20DDED 3384 
F62E 20E1FF 3385 
F631 D007 3386 
F633 2042F6 3387 
F636 A900 3388 
F638 38 3389 
F639 60 3390 

3391 
F63A 20DBFC 3392 
F63D D0E5 3393 
F63F 20FEED 3394 



; standard save RAM entry 

;if current device is keyboard (0) 
; indicate Illegal Device # 



WF5ED LDA ZBA 

BNE BF5F4 
BF5F1 JMP JF713 



BF5F4 CMP $03 J if current device is screen 

BEQ BF5F1 ; indicate error 

BCC BF659 ;skip if cassette 

LDA $61 ; device must be serial bus, 

STA ZB9 ;set temporary sec. adr to Output 

LDY ZB7 ;if file name is not present 
BNE BF605 

JMP JF710 ; indicate File Name Missing 



; perform open for serial bus device 

; print Saving + file name 

;get current device 

;and send LISTEN on serial bus 

;send secondary address 

;on serial bus 

;move ptr to I/O area into ZAC/D 

;send low of start address on serial bus 

;then high byte 

;if block is not finished 



BF605 JSR SF3D5 

JSR SF68F 

LDA ZBA 

JSR SED0C 

LDA ZB9 

JSR SEDB9 

LDY $00 

JSR SFB8E 

LDA ZAC 

JSR JEDDD 

LDA ZAD 

JSR JEDDD 
BF624 JSR SFCD1 

BCS BF63F 

LDA (ZAC),Y ;fetch next byte 

JSR JEDDD ;and send on serial bus 

JSR SFFE1 ; check for Stop key 

BNE BF63A 
JF633 JSR SF642 

LDA $00 

SEC 

RTS 



;and close serial bus if depressed 



BF63A JSR SFCDB ; increment address 

BNE BF624 ;and repeat 
BF63F JSR SEDFE ;send UNLISTEN on the serial bus 
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F642 
F644 
F646 
F648 
F64B 
F64D 
F64F 
F651 
F654 
F657 
F658 



24B9 

3011 

A5BA 

200CED 

A5B9 

29EF 

09E0 

20B9ED 

20FEED 

18 

60 



F659 4A 
F65A B003 
F65C 4C13F7 



F65F 
F662 
F664 
F667 
F669 
F66C 
F66E 
F670 
F672 
F674 
F676 
F677 
F67A 
F67C 
F67F 
F681 
F683 
F685 
F687 
F689 
F68C 
F68D 
F68E 



20D0F7 

908D 

2038F8 

B025 

208FF6 

A203 

A5B9 

2901 

D002 

A201 

8A 

206AF7 

B012 

2067F8 

B00D 

A5B9 

2902 

F006 

A905 

206AF7 

24 

18 

60 



F68F A59D 
F691 10FB 
F693 A051 
F695 202FF1 
F698 4CC1F5 



3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 



; close serial bus device 



SF642 BIT ZB9 

BMI BF657 
LDA ZBA 
JSR SEDOC 
LDA ZB9 
AND $EF 
ORA $E0 
JSR SEDB9 

JF654 JSR SEDFE 

BF657 CLC 
RTS 



;if secondary address valid, 

;get current device 

;and send LISTEN on serial bus 

; fetch secondary address 

; strip bit 4 

; force bits 7-5 

;send secondary addr after LISTEN 

;send UNLISTEN on serial bus 



;if device is not cassette 
; indicate Illegal Device t 
save RAM to cassette 



BF659 LSR A 

BCS BF65F 
JMP JF713 



BF65F JSR 
BCC 
JSR 
BCS 
JSR 
LDX 
LDA 
AND 
BNE 
LDX 

BF676 TXA 
JSR 
BCS 
JSR 
BCS 
LDA 
AND 
BEQ 
LDA 
JSR 
.BY 

BF68D CLC 

BF68E RTS 



SF7D0 

BF5F1 

SF838 

BF68E 

SF68F 

$03 

ZB9 

$01 

BF676 

$01 

SF76A 

BF68E 

SF867 

BF68E 

ZB9 

$02 

BF68D 

$05 

SF76A 

$24 



;set tape buffer pointer in XY 

;exit if address invalid 

;print msgs for cassette and test sense 

; print message Saving + file name 



;if secondary address is even, 

;set secondary address to 1 

;write Program Header block to cassette 

;exit upon error 

;write block to cassette 

; again, exit upon error 

;if write End-Of-Tape Mark specified, 

;then write special block 

;skip next instruction 
; indicate no errors 



;handle message Saving plus file name 



SF68F LDA Z9D 

BPL BF68E 
LDY $51 
JSR BF12F 
JMP JF5C1 



jreturn if not in Direct mode 
; point to message SAVING 
; print message 
;then print file name 
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F69B 

F69D 

F69F 

F6A1 

F6A3 

F6A5 

F6A7 

F6A8 

F6AA 

F6AC 

F6AE 

F6B0 

F6B2 

F6B4 

F6B6 

F6B8 

F6BA 

F6BC 

F6BF 

F6C2 

F6C4 

F6C5 

F6C7 

F6C9 

F6CC 

F6CF 

F6D2 

F6D4 

F6D7 

F6D8 

F6DA 

F6DC 



A200 

E6A2 

D006 

E6A1 

D002 

E6A0 

38 

A5A2 

E901 

A5A1 

E91A 

A5A0 

E94F 

9006 

86AO 

86A1 

86A2 

AD01DC 

CD01DC 

D0F8 

AA 

3013 

A2BD 

8E00DC 

AE01DC 

EC01DC 

D0F8 

8D00DC 

E8 

D002 

8591 

60 



3448 ; Increment real time clock 

3449 ; 

3450 JF69B LDX $00 

3451 INC ZA2 

3452 BNE BF6A7 

3453 INC ZA1 

3454 BNE BF6A7 

3455 INC ZAO 

3456 BF6A7 SEC 



3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 



LDA ,ZA2 
SBC $01 
LDA ZA1 
SBC $1A 
LDA ZAO 
SBC $4F 
BCC BF6BC 
STX ZAO 
STX ZA1 
STX ZA2 



;bump low byte 

;then middle byte upon overflow 
;then high byte upon overflow 
; check for full 24 hours 



;yes, clear clock 



F6DD 78 
F6DE A5A2 
F6E0 A6A1 
F6E2 A4A0 



F6E5 85A2 
F6E7 86A1 
F6E9 84A0 
F6EB 58 
F6EC 60 



3467 BF6BC LDA XDC01 

3468 CMP XDC01 

3469 BNE BF6BC 

3470 TAX 

3471 BMI BF6DA 

3472 LDX $BD 

3473 STX XDCOO 

3474 BF6CC LDX XDC01 

3475 CPX XDC01 

3476 BNE BF6CC 

3477 STA XDCOO 

3478 INX 

3479 BNE BF6DC 

3480 BF6DA STA Z91 

3481 BF6DC RTS 

3482 ; 

3483 ;read real time clock 

3484 ; 

3485 JF6DD SEI 

3486 LDA ZA2 

3487 LDX ZA1 

3488 LDY ZAO 

3489 ; 

3490 ;set real time clock 

3491 ; 

3492 JF6E4 SEI 

3493 STA ZA2 

3494 STX ZA1 

3495 STY ZAO 

3496 CLI 

3497 RTS 



;read current keyboard scan line 
;wait until steady 

; select Stop key row 
;read column 
;wait until steady 

;save scan result 



;kill IRQ to avoid interference 
;read low byte into A 
;read middle byte into X 
;and high byte into Y 



; disable IRQ to avoid interference 
;set low byte from A 
;set middle byte from X 
;and set high byte from Y 
; enable IRQ's 



195 





3499 


;test 


STOP key 




3500 


» 






F6ED A591 


3501 


WF6ED 


LDA 


Z91 


F6EF C97F 


3502 




CMP 


$7F 


F6F1 D007 


3503 




BNE 


BF6FA 


F6F3 08 


3504 




PHP 




F6F4 20CCFF 


3505 




JSR 


SFFCC 


F6F7 85C6 


3506 




STA 


ZC6 


F6F9 28 


3507 




PLP 




F6FA 60 


3508 


BF6FA RTS 






3509 


» 








3510 


;handle I/O errc 




3511 


» 






F6FB A901 


3512 


JF6FB 


LDA 


$01 


F6FD 2C 


3513 




.BY 


$2C 


F6FE A902 


3514 


JF6FE 


LDA 


$02 


F700 2C 


3515 




.BY 


$2C 


F701 A903 


3516 


JF701 


LDA 


$03 


F703 2C 


3517 




.BY 


$2C 


F704 A904 


3518 


JF704 


LDA 


$04 


F706 2C 


3519 




.BY 


$2C 


F707 A905 


3520 


JF707 


LDA 


$05 


F709 2C 


3521 




.BY 


$2C 


F70A A906 


3522 


JF70A LDA 


$06 


F70C 2C 


3523 




.BY 


$2C 


F70D A907 


3524 


JF70D 


LDA 


$07 


F70F 2C 


3525 




.BY 


$2C 


F710 A908 


3526 


JF710 


LDA 


$08 


F712 2C 


3527 




.BY 


$2C 


F713 A909 


3528 


JF713 


LDA 


$09 


F715 48 


3529 




PHA 




F716 20CCFF 


3530 




JSR 


SFFCC 


F719 A000 


3531 




LDY 


$00 


F71B 249D 


3532 




BIT 


Z9D 


F71D 500A 


3533 




BVC 


BF729 


F71F 202FF1 


3534 




JSR 


BF12F 


F722 68 


3535 




PLA 




F723 48 


3536 




PHA 




F724 0930 


3537 




ORA $30 


F726 20D2FF 


3538 




JSR 


SFFD2 


F729 68 


3539 


BF729 


PLA 




F72A 38 


3540 




SEC 




F72B 60 


3541 




RTS 





;if Stop key is depressed 

; save flags on stack 

;close files and set devices to default 

; cancel keyboard queue 

;restore flags 



;Too Many Files 

;File Open 

;File Not Open 

;File Not Found 

; Device Not Present 

;Not Input File 

;Not Output File 

;File Name Missing 

; Illegal Device # 

; save error # on stack 

; close files and set devices to default 



;if bit 6 in Direct/Run flag is set 
;print message I/O Error 



; followed by error # 
; res tore error number 
;set error flag 
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3543 ; 


;get next file header 




3544 ; 






F72C A593 


3545 SF72C 


LDA Z93 ;i 


F72E 48 


3546 




PHA 


F72F 2041F8 


3547 




JSR SF841 ;: 


F732 68 


3548 




PLA 


F733 8593 


3549 




STA Z93 ; 


F735 B032 


3550 




BCS BF769 ; 


F737 AOOO 


3551 




LDY $00 


F739 B1B2 


3552 




LDA (ZB2),Y 


F73B C905 


3553 




CMP $05 ; 


F73D F02A 


3554 




BEQ BF769 ; 


F73F C901 


3555 




CUP $01 


F741 F008 


3556 




BEQ BF74B ; 


F743 C903 


3557 




CMP $03 ; 


F745 F004 


3558 




BEQ BF74B 


F747 C904 


3559 




CUP $04 


F749 DOEl 


3560 




BNE SF72C ; 


F74B AA 


3561 


BF74B 


TAX 


F74C 249D 


3562 




BIT Z9D ; 


F74E 1017 


3563 




BPL BF767 


F750 A063 


3564 




LDY $63 ; 


F752 202FF1 


3565 




JSR BF12F ; 


F755 A005 


3566 




LDY $05 


F757 B1B2 


3567 


BF757 


LDA (ZB2),Y 


F759 20D2FJ 


■ 3568 




JSR SFFD2 ; 


F75C C8 


3569 




INY 


F75D C015 


3570 




CPY $15 ; 


F75F DOF6 


3571 




BNE BF757 ; 


F761 A5A1 


3572 


BF761 


. LDA ZA1 


F763 20E0E4 3573 




JSR SE4E0 


F766 EA 


3574 




NOP ; 


F767 18 


3575 


BF76/ 


' CLC 


F768 88 


3576 




DEY 


F769 60 


3577 


BF769 RTS 



from cassette 

save load/verify switch on stack 

read a block from tape 

restore load/verify flag 
exit if read error 

get first character in tape buffer 

if code for End of Tape 

return 

;if not code for Program Header 
;or "?•' 

;or Data Header, try next block 

;if in direct mode, 

; point to message FOUND 
;and print it 



; print a file name character 

;and repeat for 
;all 21 characters 

;display file name for max. 8.5 seconds 
; filler for patch 
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3579 


;wrlte a special block to cassette with code from A 




3580 


» 










F76A 859E 


3581 


SF76A 


STA 


Z9E 




;save code from A 


F76C 20D0F7 


3582 




JSR 


SF7D0 




; set tape buffer index in XY 


F76F 90 5E 


3583 




BCC 


BF7CF 




;exit if address invalid 


F771 A5C2 


3584 




LDA 


ZC2 




;save I/O start address on stack 


F773 48 


3585 




PHA 








F774 A5C1 


3586 




LDA 


ZC1 






F776 48 


3587 




PHA 








F777 A5AF 


3588 




LDA 


ZAF 




;save ptr to end of I/O area on stack 


F779 48 


3589 




PHA 








F77A A5AE 


3590 




LDA 


ZAE 






F77C 48 


3591 




PHA 








F77D AOBF 


3592 




LDY 


$BF 






F77F A920 


3593 




LDA 


$20 






F781 91B2 


3594 


BF781 


STA 


(ZB2), 


,Y 


;clear cassette buffer with spaces 


F783 88 


3595 




DEY 








F784 DOFB 


3596 




BNE 


BF781 






F786 A59E 


3597 




LDA 


Z9E 




;move routine entry code 


F788 91B2 


3598 




STA 


(ZB2), 


,Y 


;into first byte of cassette buffer 


F78A C8 


3599 




INY 








F78B A5C1 


3600 




LDA 


ZC1 




;move pointer to I/O area 


F78D 91B2 


3601 




STA 


(ZB2), 


.* 


;+ i 


F78F C8 


3602 




INY 








F790 A5C2 


3603 




LDA 


ZC2 






F792 91B2 


3604 




STA 


(ZB2), 


,Y 


;and + 2 


F794 C8 


3605 




INY 








F795 A5AE 


3606 




LDA 


ZAE 




;move pointer to end of I/O area into 


F797 91B2 


3607 




STA 


(ZB2), 


,Y 


;+ 3 


F799 C8 


3608 




INY 








F79A A5AF 


3609 




LDA 


ZAF 






F79C 91B2 


3610 




STA 


(ZB2), 


,Y 


;and + 4 


F79E C8 


3611 




INY 








F79F 849F 


3612 




STY 


Z9F 




;save index into tape buffer 


F7A1 AOOO 


3613 




LDY 


$00 






F7A3 84 9E 


3614 




STY 


Z9E 




; initialize file name index 


F7A5 A49E 


3615 


BF7A5 


LDY 


Z9E 






F7A7 C4B7 


3616 




CPY 


ZB7 




;if not at end of file name 


F7A9 FOOC 


3617 




BEQ 


BF7B7 






F7AB BIBB 


3618 




LDA 


(ZBB), 


,Y 


;move file name 


F7AD A49F 


3619 




LDY 


Z9F 






F7AF 91B2 


3620 




STA 


(ZB2), 


Y 


;into tape buffer 


F7B1 E69E 


3621 




INC 


Z9E 




; increment indexes 


F7B3 E69F 


3622 




INC 


Z9F 






F7B5 DOEE 


3623 




BNE 


BF7A5 




;and repeat 


F7B7 20D7F7 


3624 


BF7B7 


JSR 


SF7D7 




;set cassette buffer to I/O area 


F7BA A969 


3625 




LDA 


$69 






F7BC 85AB 


3626 




STA 


ZAB 




;set 105 sync patterns 


F7BE 206BF8 


3627 




JSR 


SF86B 




;write block, to tape 


F7C1 A8 


3628 




TAY 








F7C2 68 


3629 




PLA 








F7C3 85AE 


3630 




STA 


ZAE 




; restore ptr to beginning of I/O area 


F7C5 68 


3631 




PLA 








F7C6 85AF 


3632 




STA 


ZAF 






F7C8 68 


3633 




PLA 








F7C9 85C1 


3634 




STA 


ZC1 




; restore pointer to end of I/O area 


F7CB 68 


3635 




PLA 








F7CC 85C2 


3636 




STA 


ZC2 






F7CE 98 


3637 




TYA 








F7CF 60 


3638 


BF7CF 


RTS 
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F7D0 A6B2 
F7D2 A4B3 
F7B4 C002 
F7D6 60 



F7D7 
F7DA 
F7DB 
F7DD 
F7DE 
F7E0 
F7E2 
F7E3 
F7E5 
F7E7 
F7E9 



20DOF7 

8A 

85C1 

18 

69C0 

85AE 

98 

85C2 

6900 

85AF 

60 



F7EA 
F7ED 
F7EF 
F7F1 
F7F3 
F7F5 
F7F7 
F7F9 
F7FE 
F7FD 
F7FF 
F801 
F803 
F805 
F807 
F809 
FSOB 
F80C 



202CF7 

BO ID 

A005 

849 F 

AOOO 

849E 

C4B7 

F010 

BIBB 

A49F 

D1B2 

D0E7 

E69E 

E69F 

A49E 

DOEC 

18 

60 



F80D 20D0F7 
F810 E6A6 
F812 A4A6 
F814 COCO 
F816 60 



3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 



set tape buffer pointer In XY 



SF7D0 LDX ZB2 
LDY ZB3 
CPY $02 
RTS 



;move X to low part of tape buffer ptr 

;and Y to high part 

;set C if address invalid 



;set cassette buffer to I/O area 

;set tape buffer address in XY 
;move to I/O start address 



SF7D7 JSR SF7D0 
TXA 

STA ZC1 
CLC 

ADC $C0 
STA ZAE 
TYA 

STA ZC2 
ADC $00 
STA ZAF 
RTS 



;add 192 

; to form low part of end of I/O area 

;move high byte also 



; search tape for a file name 



SF7EA JSR SF72C 
BCS BF80C 
LDY $05 
STY Z9F 
LDY $00 
STY Z9E 

BF7F7 CPY ZB7 

BEQ BF80B 
LDA (ZBB),Y 
LDY Z9F 
CMP (ZB2),Y 
BNE SF7EA 
INC Z9E 
INC Z9F 
LDY Z9E 
BNE BF7F7 

BF80B CLC 

BF80C RTS 



;read next file header from tape 
;exit upon error 

;set temporary index in tape buffer 

;set temporary index in file name 

;if at end of file name 

; then name found 

;get character from file name 

;and compare to tape buffer 

; if not equal, try next entry from tape 

; else bump pointers 



;and repeat test 
; clear error flag 



add 1 to tape index and test for overflow 



SF80D JSR SF7D0 
INC ZA6 
LDY ZA6 
CPY $C0 
RTS 



;get tape buffer pointer in XY 
; and add 1 

;set C if end of block 
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F817 
F81A 
F81C 
F81E 
F821 
F824 
F827 
F829 
F82B 



202EF8 

F01A 

AOIB 

202FF1 

20D0F8 

202EF8 

DOF8 

A06A 

4C2FF1 



F82E A910 
F830 2401 
F832 D002 
F834 2401 
F836 18 
F837 60 



F838 202EF8 
F83B F0F9 
F83D A02E 
F83F DODD 



F841 
F843 
F845 
F847 
F84A 
F84D 
F84F 
F850 
F852 
F854 
F856 
F858 
F85A 
F85C 
F85E 
F860 
F862 



A900 

8590 

8593 

20D7F7 

2017F8 

B01F 

78 

A900 

85AA 

85B4 

85B0 

859E 

859F 

859C 

A990 

A20E 

D011 



3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 



; handle messages and test cassette buttons for read 

SF817 JSR SF82E ;test sense line 

BEQ BF836 ;if no buttons depressed, 

LDY $1B ; point to message Press Flay on Tape 

BF81E JSR BF12F ;and print message 

BF821 JSR SF8D0 ;test Stop key 

JSR SF82E ;test sense line 

BNE BF821 ;and repeat if no buttons depressed 

LDY $6A ; point to message OK 

JMP BF12F ;and print 

;test sense line for a button depressed on cassette 



SF82E LDA $10 
BIT Z01 
BNE BF836 
BIT Z01 

BF836 CLC 
RTS 



;set mask for sense line 

;test 6510 I/O register 

;exit with Z clear if nothing depressed 

;else set Z 



;set messages and test cassette sense line for output 

» 

SF838 JSR SF82E ;test sense switches 

BEQ BF836 ;lf no buttons depressed 

LDY $2E ; Index message Press Next & Play... 

BNE BF81E ; print message, test sense and return 

read a block from cassette 



SF841 LDA 
STA 
STA 
JSR 

SF84A JSR 
BCS 
SEI 
LDA 
STA 
STA 
STA 
STA 
STA 
STA 
LDA 
LDX 
BNE 



$00 

Z90 

Z93 

SF7D7 

SF817 

BF86E 

$00 
ZAA 
ZB4 
ZB0 
Z9E 
Z9F 
Z9C 
$90 
$0E 
BF875 



; clear ST 

;set load/verify switch to load 

;set tape buffer to I/O area 

; handle msgs and test sense for read 

; disable IRQ 

;set gap 

;set no sync established 

;set no special speed correction yet 

; initialize error log index for pass 1 

;and pass 2 

;set no byte available yet 

;set Flag mask 

; index for cassette read IRQ address 

;JMP 
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F864 20D7F7 
F867 A914 
F869 85AB 
F86B 2038F8 
F86E B06C 
F870 78 
F871 A982 
F873 A208 



F875 A07F 
F877 8C0DDC 
F87A 8D0DDC 
F87D ADOEDC 
F880 0919 
F882 8D0FDC 
F885 2991 
F887 8DA202 
F88A 2OA4F0 
F88D AD11D0 
F890 29EF 
F892 8D11D0 
F895 AD1403 
F898 8D9F02 
F89B AD1503 
F89E 8DA002 
F8A1 20BDFC 
F8A4 A902 
F8A6 85BE 
F8A8 2097FB 
F8AB A501 
F8AD 291F 
F8AF 8501 
F8B1 85C0 
F8B3 A2FF 
F8B5 AOFF 
F8B7 88 
F8B8 DOFD 
F8BA CA 
F8BB D0F8 
F8BD 58 
F8BE ADA002 
F8C1 CD1503 
F8C4 18 
F8C5 F015 
F8C7 20D0F8 
F8CA 20BCF6 
F8CD 4CBEF8 



3738 ;write a block to 

3739 ; 

3740 SF864 JSR SF7D7 

3741 SF867 LDA $14 

3742 STA ZAB 

3743 SF86B JSR SF838 

3744 BF86E BCS BF8DC 

3745 SEI 

3746 LDA $82 

3747 LDX $08 

3748 ; 

3749 ; common code for 

3750 ; 

3751 BF875 LDY $7F 



3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 



STY XDCOD 
STA XDCOD 
LDA XDCOE 
ORA $19 
STA XDCOF 
AND $91 
STA X02A2 
JSR SF0A4 
LDA XDOll 
AND $EF 
STA XDOll 
LDA X0314 
STA X029F 
LDA X0315 
STA X02A0 
JSR SFCBD 
LDA $02 
STA ZBE 
JSR SFB97 
LDA ZOl 
AND $1F 
STA ZOl 
STA ZCO 
LDX $FF 



3776 BF8B5 LDY $FF 

3777 BF8B7 DEY 

3778 BNE BF8B7 

3779 DEX 

3780 BNE BF8B5 

3781 CLI 

3782 JF8BE LDA X02AO 

3783 CMP X0315 

3784 CLC 

3785 BEQ BF8DC 

3786 JSR SF8DO 

3787 JSR BF6BC 

3788 JMP JF8BE 



cassette 

initialize tape buffer pointer 

;20 sync patterns 

;test sense and display msgs for output 



;mask for ICR1 to honor TBI 

;IRQ index for cassette write, part 1 

5sette read & write 



; clear any pending masks in ICR1 
;then set mask for TBI 

;+ force load, one shot and TBI to CRA1 
;to form CRB1 

;and CRB1 activity register 
;condition flag bit in ICR2 



; disable the screen 
;save standard IRQ vector 



;set new IRQ for cassette depending on X 

; select phase 2 

; initialize cassette I/O variables 



; start cassette motor 
;set tape motor interlock 



; delay .3 seconds 



;test high byte of IRQ save area 
;to determine if end of 1/0 

;exit if so 
;else test Stop key 
;scan keyboard 
jrepeat 
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F8D0 
F8D3 
F8D4 
F8D6 
F8D9 
F8DA 
F8DB 
F8DC 
F8DE 
F8E1 



F6E2 
F8E4 
F8E6 
F8E7 
F8E8 
F8E9 
FSEB 
F8EC 
F8EE 
F8F0 
F8F2 
F8F4 
F8F6 
F8F7 
F8F9 
F8FA 
F8FC 
F8FE' 
F8FE 
F901 
F903 
F905 
F907 
F90A 
F90B 
F90E 
F911 
F914 
F917 
F91A 
F91D 
F91F 
F921 
F923 
F924 
F926 
F927 
F92A 
F92B 



20E1FF 

18 

DOOB 

2093FC 

38 

68 

68 

A900 

8DA002 

60 



86B1 

A5B0 

OA 

OA 

IS 

65B0 

18 

65B1 

85E1 

A900 

24B0 

3001 

2A 

06B1 

2A 

06B1 

2A 

AA 

AD06DC 

C916 

90F9 

65B1 

8D04DC 

8A 

6D07DC 

8D05DC 

ADA202 

8D0EDC 

3DA402 

ADODDC 

2910 

F009 

A9F9 

48 

A92A 

48 

4C43FF 

58 

60 



3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 



handle Stop key during cassette operations 
;test Stop key 



SF8DO JSR SFFE1 

CLC 

BNE BF8E1 

JSR SFC93 

SEC 

PLA 

PLA 
BF8DC LDA $00 

STA X02A0 
BF8E1 RTS 



;if depressed, stop cassette operations 
;delete own return address 

; clear high byte of IRQ save area 



; schedule CIA1 Timer A depending in parmeter in X 



SF8E2 STX ZB1 
LDA ZBO 
ASL A 
ASL A 
CLC 

ADC ZBO 
CLC 

ADC ZB1 
STA ZB1 
LDA $00 
BIT ZBO 
BMI BF8F7 
ROL A 

BF8F7 ASL ZB1 
ROL A 
ASL ZB1 
ROL A 
TAX 

BF8FE LDA XDC06 
CMP $16 
BCC BF8FE 
ADC ZB1 
STA XDC04 
TXA 

ADC XDC07 
STA XDC05 
LDA X02A2 
STA XDCOE 
STA X02A4 
LDA XDCOD 
AND $10 
BEQ BF92A 
LDA >BF92A 
PHA 

LDA <BF92A 
PHA 
JMP JFF43 

BF92A CLI 
RTS 



; save entry parameter 
;get speed correction 
;* 2 
;* 4 

; add speed correction 

; and parameter 
; save low order 

;if speed correction is positive 

;get high order in A 

;* 2 

;* * 

;wait until no chance of 
;TBL1 changing 

; while it still must be read 
;add low order offset to TBL1 
j and store in TALI 

;add high order offset to TBH1 
; and store in TAH1 

; set CRA1 from CRB1 activity register 
;and save it 



; if Flag bit is not set, 
;set exit address on stack 



;and simulate an IRQ 
;else allow IRQ and exit 
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F92C 

F92C 

F92F 

F931 

F932 

F935 

F938 

F93A 

F93C 

F93D 

F940 

F943 

F945 

F948 

F94B 

F94E 

F94F 

F951 

F953 

F954 

F956 

F957 

F959 

F95B 

F95C 

F95E 

F960 

F962 

F964 

F966 



AE07DC 

AOFF 

98 

ED06DC 

EC07DC 

DOF2 

86B1 

AA 

8C06DC 

8C07DC 

A919 

8DOFDC 

ADODDC 

8DA302 

98 

E5B1 

86B1 

4A 

66B1 

4A 

66B1 

A5BO 

18 

693C 

C5B1 

B04A 

A69C 

F003 

4C60FA 



F969 
F96B 
F96D 
F96F 
F971 
F973 
F975 
F977 
F978 
F97A 
F97C 
F97E 
F980 
F982 
F984 
F986 
F988 

F98B 
F98D 
F98F 
F991 
F993 
F995 
F997 
F999 
F99A 



A6A3 

301B 

A200 

6930 

65B0 

C5B1 

B01C 

E8 

6926 

65B0 

C5B1 

B017 

692C 

65B0 

C5B1 

9003 

4C10FA 

A5B4 

F01D 

85A8 

D019 

E6A9 

B002 

C6A9 

38 

E913 



3845 ; cassette 

3846 ; 

3847 WF92C = 

3848 BF92C LDX 

3849 LDY 

3850 TYA 

3851 SBC 

3852 CPX 

3853 BNE 

3854 STX 

3855 TAX 

3856 STY 

3857 STY 

3858 LDA 

3859 STA 

3860 LDA 

3861 STA 

3862 TYA 

3863 SBC 

3864 STX 

3865 LSR 

3866 ROR 

3867 LSR 

3868 ROR 

3869 LDA 

3870 CLC 

3871 ADC 

3872 CMP 

3873 BCS 

3874 LDX 

3875 BEQ 

3876 JMP 

3877 ; 

3878 BF969 LDX 

3879 BMI 

3880 LDX 

3881 ADC 

3882 ADC 

3883 CMP 

3884 BCS 

3885 INX 

3886 ADC 

3887 ADC 

3888 CMP 

3889 BCS 

3890 ADC 

3891 ADC 

3892 CMP 

3893 BCC 

3894 BF988 JMP 

3895 ; 

3896 BF98B LDA 

3897 BEQ 

3898 STA 

3899 BNE 

3900 BF993 INC 

3901 BCS 

3902 BF997 DEC 

3903 BF999 SEC 

3904 SBC 



read IRQ routine 



XDC07 
$FF 

XDC06 
XDC07 
BF92C 
ZB1 

XDC06 

XDC07 

$19 

XDCOF 

XDCOD 

X02A3 

ZB1 

ZB1 

A 

ZB1 

A 

ZB1 

ZBO 

$3C 

ZB1 

BF9AC 

Z9C 

BF969 

JFA60 

ZA3 

BF988 

$00 

$30 

ZBO 

ZB1 

BF993 

$26 

ZBO 

ZB1 

BF997 

$2C 

ZBO 

ZB1 

BF98B 

JFA10 

ZB4 

BF9AC 

ZA8 

BF9AC 

ZA9 

BF999 

ZA9 

$13 



;get TBH1 

;and complement of TBL1 

;(tlme elapsed) 

;if high byte not steady, 

; repeat 

;else save high byte 

; reset TBL1 to maximum 

;ditto TBH1 

; force load , one-shot and Timer B 

;into CRB1 

;save ICR1 

; complement high byte 
;save low byte 
; elapsed time in A, ZB1 
;/ 2 

;/ 4 

;get speed correction 

;+ 240 microseconds 
;lf cycle shorter 
; dismiss 
;if byte available 

;receive it 

;test bit count and if beyond last bit, 

;do end of byte 

; assume bit value of 

;add 432 microseconds 

;+ 2 * speed correction 

;if cycle shorter 

; record a 

; assume bit value of 1 

;get 584 microseconds 

;+ 3 * speed correction 

;if cycle shorter 

; record a 1 

;get 760 rjcicf tcciti 

;+ 4 * speed correction 

;if cycle shorter 

;go do end of byte 

;if sync established 

;set erroneous bits 

;for a 0, increment 0/1 balance 

;for a 1, decrement 0/1 balance 

;0/l cutoff level 
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F99C E5B1 


3905 


SBC ZB1 


F99E 6592 


3906 


ADC Z92 


F9A0 8592 


3907 


STA Z92 


F9A2 A5A4 


3908 


LDA ZA4 


F9A4 4901 


3909 


EOR $01 


F9A6 85A4 


3910 


STA ZA4 


F9A8 F02B 


3911 


BEQ BF9D5 


F9AA 86D7 


3912 


STX ZD7 


F9AC A5B4 


3913 


BF9AC LDA ZB4 


F9AE F022 


3914 


BEQ BF9D2 


F9B0 ADA302 


3915 


LDA X02A3 


F9B3 2901 


3916 


AND $01 


F9B5 D005 


3917 


BNE BF9BC 


F9B7 ADA402 


3918 


LDA X02A4 


F9BA D016 


3919 


BNE BF9D2 


F9BC A900 


3920 


BF9BC LDA $00 


F9BE 85A4 


3921 


STA ZA4 


F9C0 8DA402 


3922 


STA X02A4 


F9C3 A5A3 


3923 


LDA ZA3 


F9C5 1030 


3924 


BPL BF9F7 


F9C7 30BF 


3925 


BMI BF988 


F9C9 A2A6 


3926 


BF9C9 LDX $A6 


F9CB 20E2F8 


3927 


JSR SF8E2 


F9CE A59B 


3928 


LDA Z9B 


F9D0 D0B9 


3929 


BNE BF98B 


F9D2 4CBCFE 


3930 
3931 


BF9D2 JMP JFEBC 


F9D5 A592 


3932 


BF9D5 LDA Z92 


F9D7 F007 


3933 


BEQ BF9E0 


F9D9 3003 


3934 


BMI BF9DE 


F9DB C6B0 


3935 


DEC ZBO 


F9DD 2C 


3936 


.BY $2C 


F9DE E6B0 


3937 


BF9DE INC ZBO 


F9E0 A900 


3938 


BF9E0 LDA $00 


F9E2 8592 


3939 


STA Z92 


F9E4 E4D7 


3940 


CPX ZD7 


F9E6 D00F 


3941 


BNE BF9F7 


F9E8 8A 


3942 


TXA 


F9E9 DOAO 


3943 


BNE BF98B 


F9EB A5A9 


3944 


LDA ZA9 


F9ED 30BD 


3945 


BMI BF9AC 


F9EF C910 


3946 


CMP $10 


F9F1 90B9 


3947 


BCC BF9AC 


F9F3 8596 


3948 


STA Z96 


F9F5 B0B5 


3949 


BCS BF9AC 


F9F7 8A 


3950 


BF9F7 TXA 


F9F8 459B 


3951 


EOR Z9B 


F9FA 859B 


3952 


STA Z9B 


F9FC A5B4 


3953 


LDA ZB4 


F9FE F0D2 


3954 


BEQ BF9D2 


FAOO C6A3 


3955 


DEC ZA3 


FA02 30C5 


3956 


BMI BF9C9 


FA04 46D7 


3957 


LSR ZD7 


FA06 66BF 


3958 


ROR ZBF 


FA08 A2DA 


3959 


LDX $DA 


FAOA 20E2F8 


3960 


JSR SF8E2 


FAOD 4CBCFE 


3961 
3962 


JMP JFEBC 


FA10 A596 


3963 


JFA10 LDA Z96 


FA12 F004 


3964 


BEQ BFA18 



;- cycle width 

; accumulated for speed correction 

;flip cycle indication 

;if first cycle, 
;save bit value 
;if no sync yet 
; return from IRQ 
;if ICR1 mask 



;and last CRA1 mask shows no TA1 flag, 
;exlt from IRQ 

; clear cycle count 

;and last CRA1 mask 

;if bit count indicates end of byte, 

;go do end of byte 

; schedule timer 

;if parity calculated does not match 

; set erroneous bit flag 

;exit from IRQ 

;if second cycle, 

; check accumulated over/under time 



;skip next instruction 

; adapt speed correction accordingly 

;reset accumulated over/under time 
;if 2nd cycle = complement of cycle 1, 
; include bit 

;if two cycles 
;and 0/1 balance 

;at least 16 "0" cycles extra 

;set sync detected 

; calculate parity 

;if no sync yet, 

;exit 

; decrement pending bit count 

;after last bit, check parity 

; include bit 

;in byte being read 

; schedule timer 
;exit from IRQ 

;if sync detected 
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FA14 A5E4 
FA16 F007 
FA16 A5A3 
FA1A 3003 
FA1C 4C97F9 



FA1F 

FA21 

FA23 

FA24 

FA26 

FA28 

FA29 

FA2A 

FA2D 

FA2F 

FA31 

FA33 

FA35 

FA37 

FA39 

FA3B 

FA3D 

FA3F 

FA42 

FA44 

FA46 

TA48 

FA4A 

FA4C 

FA4E 

FA50 

FA53 

FA55 

FA57 

FA59 

FA5B 

FA5D 



46B1 

A993 

3b 

E5B1 

65B0 

OA 

AA 

20E2F8 

E69C 

A5B4 

D011 

A596 

F026 

85A8 

A900 

8596 

A981 

8D0DDC 

85B4 

A596 

85B5 

F009 

A900 

85B4 

A901 

8D0DDC 

A5BF 

8 5 ED 

A5A8 

05A9 

85B6 

4CBCFE 



3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3968 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 



LDA ZB4 
BEQ BFA1F 
BFA18 LDA ZA3 

BMI BFA1F 
JMP BF997 



BFA1F LSR 
LDA 
SEC 
SBC 
ADC 
ASL 
TAX 
JSR 
INC 
LDA 
BNE 
LDA 
BEQ 
STA 
LDA 
STA 
LDA 
STA 
STA 

BFA44 LDA 
STA 
BEQ 
LDA 
STA 
LDA 
STA 

BFA53 LDA 
STA 
LDA 
ORA 
STA 

BFA5D JtiP 



ZB1 
$93 

ZB1 
ZBO 
A 

SF8E2 

Z9C 

ZB4 

BFA44 

Z96 

BFA5D 

ZA8 

$00 

Z96 

$81 

XDCOD 

ZB4 

Z96 

ZB5 

BFA53 

$00 

ZB4 

$01 

XDCOD 

ZBF 

ZBD 

ZA8 

ZA9 

ZB6 

JFEBC 



; and not yet established 

;or last bit done 

; allow byte reception 

; compute new speed correction value 



; schedule timer 

; indicate byte available 

;if no sync established yet, 

;but sync detected 

;set error bits 

; clear sync detected 

;set TA1 bit 

;in ICRl 

; set sync established 

;move sync status 

; to saved sync status 

; if not detected, 

; indicate sync not established 

; clear TA mask in ICRl 
; save byte read 

; accumulate possible errors 
;exit from IRQ 
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FA60 
FA63 
FA65 
FA67 
FA6A 
FA6C 
FA6E 
FA70 
FA72 
FA74 
FA76 
FA78 
FA7A 
FA7C 
FA7D 
FA7F 
FA81 
FA84 
FA86 
FA88 
FA8A 

FA8D 
FA8F 
FA91 
FA93 
FA95 
FA97 
FA99 
FA9B 
FA9C 
FA9E 
FAAO 
FAA2 
FAA3 
FAA5 
FAA7 
FAA9 
FAAB 
FAAD 
FAAF 
FAB1 
FAB4 
FAB6 
FAB8 
FABA 
FABC 
FABE 
FACO 
FAC2 
FAC4 
FAC6 
FAC9 
FACB 



2097FB 

859C 

A2DA 

20E2F8 

A5BE 

F002 

85A7 

A90F 

24AA 

1017 

A5B5 

DOOC 

A6BE 

CA 

DOOB 

A908 

201CFE 

D004 

A900 

85AA 

4CBCFE 

7031 

D018 

A5B5 

D0F5 

A5B6 

D0F1 

A5A7 

4A 

A5BD 

3003 

9018 

18 

B015 

290F 

85AA 

C6AA 

DODD 

A940 

85AA 

208EFB 

A900 

85AB 

FODO 

A980 

85AA 

DOCA 

A5B5 

FOOA 

A904 

201CFE 

A900 

4C4AFB 



FACE 20D1FC 
FAD1 9003 
FAD3 4C48FB 



4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 



jreceive next byte from cassette 



JFA60 JSR 
STA 
LDX 
JSR 
LDA 
BEQ 
STA 

BFA70 LDA 
BIT 
BPL 
LDA 
BNE 
LDX 
DEX 
BNE 
LDA 
JSR 
BNE 

BFA86 LDA 
STA 

BFA8A JMP 

BFA8D BVS 
BNE 
LDA 
BNE 
LDA 
BNE 
LDA 
LSR 
LDA 
BMI 
BCC 
CLC 

BFAA3 BCS 
AND 
STA 

BFAA9 DEC 
BNE 
LDA 
STA 
JSR 
LDA 
STA 
BEQ 

BFABA LDA 
STA 
BNE 

BFACO LDA 
BEQ 
LDA 
JSR 
LDA 
JMP 



SFB97 

Z9C 

$DA 

SF8E2 

ZBE 

BFA70 

ZA7 

$0F 

ZAA 

BFA8D 

ZB5 

BFA86 

ZBE 

BFA8A 

$08 

SFE1C 

BFA8A 

$00 

ZAA 

JFEBC 

BFACO 

BFAA9 

ZB5 

BFA8A 

ZB6 

BFA8A 

ZA7 

A 

ZBD 

BFAA3 

BFABA 

BFABA 

$0F 

ZAA 

ZAA 

BFA8A 

$40 

ZAA 

SFB8E 

$00 

ZAB 

BFA8A 

$80 

ZAA 

BFA8A 

ZB5 

BFACE 

$04 

SFE1C 

$00 

JFB4A 



BFACE JSR SFCD1 
BCC BFAD6 
JMP JFB48 



; Initialize cassette I/O variables 
; Indicate no byte available yet 

; schedule Timer 

;if first or second phase being read, 

;copy into actual phase 

;if data beyond area 

;and in second half 



; indicate Long Block in ST 

;and exit 

;set gap 
;exit from IRQ 

;if data, go collect 

;if header, decrement count 

;if gap and byte valid 

;and no erroneous bits 

;get actual phase 
;bit 7 of byte 



;must correspond to header phase 

;set header count 

; decrement header count 

;at end of header, 

;set data 

;move beginning of I/O area into ZAC/D 

; clear checksum 

;if illegal header 
;set Data After Area 

;if data, but data not valid 

;set Short Block Error 
;and indicate in ST 

;do end of block 

;if at end of area, 

;set data after area 
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FAD6 

PAD8 

FAD9 

FADB 

FADD 

FADF 

FAE1 

FAE3 

FAE5 

FAE7 

FAE9 

FAEB 

FAED 

FAEF 

FAF1 

FAF3 

FAF5 

FAF7 

FAF9 

FAFC 

FAFE 

FB01 

FB02 

FB03 

FB05 



A6A7 

CA 

F02D 

A593 

FOOC 

AOOO 

A5BD 

D1AC 

F004 

A901 

85B6 

A5B6 

F04B 

A23D 

E49E 

903E 

A69E 

A5AD 

9D0101 

A5AC 

9D00O1 

E8 

E8 

869E 

4C3AFB 



4064 ; 

4065 BFAD6 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 

4076 BFAEB 
4077 



;if actual phase = 1 
;do error correction 
;lf Verify pass 



FB08 A69F 
FBOA E49E 
FBOC F035 
FBOE A5AC 
FB10 DD0001 
FB13 D02E 
FB15 A5AD 
FB17 DD0101 
FB1A D027 
FB1C E69F 
FB1E E69F 
FB20 A593 
FB22 FOOB 
FB24 A5ED 
FB26 AOOO 
FB28 D1AC 
FB2A F017 
FB2C C8 
FB2D 84B6 
FB2F A5B6 
FB31 F007 
FB33 A910 
FB35 201CFE 
FB38 D009 
FB3A A593 
FB3C D005 
FB3E A8 
FB3F A5BD 
FB41 91AC 
FB43 20DBFC 
FB46 D043 
FB48 A980 
FB4A S5AA 



4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 

4090 ; 

4091 BFB08 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 

4110 BFB2F 
4111 

4112 BFB33 
4113 



LDX ZA7 
DEX 

BEQ BFB08 
LDA Z93 
BEQ BFAEB 
LDY $00 
LDA ZBD 
CMP (ZAC),Y 

BEQ BFAEB 
LDA $01 

STA ZB6 

LDA ZB6 

BEQ BFB3A 

LDX $3D 

CPX Z9E 

BCC BFB33 

LDX Z9E 

LDA ZAD 

STA XO 100+1 ,X ; store pointer Into error log table 

LDA ZAC 

STA X0100.X 

INX 

INX 

STX Z9E 

JMP BFB3A 



; compare byte to current character 

;set error flag upon mismatch 
;if errors 

;and error log table is not at maximum 



;set new error log index 



4114 

4115 BFB3A 

4116 

4117 

4118 

4119 

4120 BFB43 

4121 

4122 JFB48 

4123 JFB4A 



LDX Z9F 
CPX Z9E 
BEQ BFB43 
LDA ZAC 
CMP X0100.X 
BNE BFB43 
LDA ZAD 
CMP X0100+1,X 
BNE BFB43 
INC Z9F 
INC Z9F 
LDA Z93 
BEQ BFB2F 
LDA ZBD 
LDY $00 
CMP (ZAC),Y 
BEQ BFB43 
INY 

STY ZB6 
LDA ZB6 
BEQ BFB3A 
LDA $10 
JSR SFE1C 
BNE BFB43 
LDA Z93 
BNE BFB43 
TAY 

LDA ZBD 
STA (ZAC),Y 
JSR SFCDB 
BHE BFB8B 
LDA $80 
STA ZAA 



if pass 2 error log index at maximum, 

no correction possible 
;else 
; check for match in error log table 



;if so, bump pass 2 error log index 
;if Verify pass 



; compare byte to current character 
;set error if not equal 



;if still an error 

;set Unrecoverable Read Error in ST 
;if Load, 



; store byte 

; increment address 

;and exit 

;set data after area 



207 



FB4C 78 


4124 


SEI 


FB4D A201 


4125 


LDX $01 


FB4F 8E0DDC 


4126 


STX XDCOD 


FB52 AEODDC 


4127 


LDX XDCOD 


FB55 A6BE 


4128 


LDX ZBE 


FB57 CA 


4129 


DEX 


FB58 3002 


4130 


BMI BFB5C 


FB5A 86BE 


4131 


STX ZBE 


FB5C C6A7 


4132 BFB5C 


DEC ZA7 


FB5E F008 


4133 


BEQ BFB68 


FB60 A59E 


4134 


LDA Z9E 


FB62 D027 


4135 


BNE BFB8B 


FB64 85BE 


4136 


STA ZBE 


FB66 F023 


4137 


BEQ BFB8B 


FB68 2093FC 


4138 BFB68 


JSR SFC93 


FB6B 208EFB 


4139 


JSR SFB8E 


FB6E AOOO 


4140 


LDY $00 


FB70 84AB 


4141 


STY ZAB 


FB72 B1AC 


4142 BFB72 


LDA (ZAC), 


FB74 45AB 


4143 


EOR ZAB 


FB76 85 AB 


4144 


STA ZAB 


FB78 20DBFC 


4145 


JSR SFCDB 


FB7B 20D1FC 


4146 


JSR SFCD1 


FB7E 90F2 


4147 


BCC BFB72 


FB80 A5AB 


4148 


LDA ZAB 


FB82 45BD 


4149 


EOR ZBD 


FB84 F005 


4150 


BEQ BFB8B 


FB86 A920 


4151 


LDA $20 


FB88 201CFE 


4152 


JSR SFE1C 


FB8B 4CBCFE 


4153 BFB8B 


JMP JFEBC 



; clear TA mask from ICR1 
;if phase 1 or 2 



; decrement phase 
;decrement actual phase 
;if not end of block 
;and no errors encountered 
;sklp phase 

;if end of block, 

; switch from cassette to default IRQ 

;move beginning of I/O area into ZAC/D 

; clear checksum value 
; compute checksum 



;bump address 

; check for end of block 



;if computed checksum does not match, 



;set Checksum Error in ST 
; return from IRQ 
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FB8E A5C2 
FB90 85AD 
FB92 A5C1 
FB94 85AC 
FB96 60 



FB97 A908 
FB99 85A3 
FB9B A900 
FB9D 85A4 
FB9F 85A8 
FBA1 859B 
FBA3 85A9 
FBA5 60 



FBA6 
FBA8 
FBA9 
FBAB 
FBAD 
FBAF 
FBB1 
FBB4 
FBB7 
FBBA 
FBBC 
FBBF 
FBC1 
FBC3 
FBC5 
FBC7 



A5BD 

4A 

A960 

9002 

A9B0 

A200 

8D06DC 

8E07DC 

ADODDC 

A919 

8D0FDC 

A501 

4908 

8501 

2908 

60 



4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 



;move save/load address into ZAC/D 

;move high byte of save/ load pointer 
;then low byte 



SFB8E LDA ZC2 
STA ZAD 
LDA ZC1 
STA ZAC 
RTS 

initialize cassette read/write variables 
;set bit count 



SFB97 LDA $08 
STA ZA3 
LDA $00 
STA ZA4 
STA ZA8 
STA Z9B 
STA ZA9 
RTS 



; clear cycle count 

; clear byte start cycle 1 

; clear parity bit 

; clear byte start cycle 2 



•schedule ICR1 Timer B and invert cassette write line 



SFBA6 LDA ZBD 
LSR A 
LDA $60 
BCC BFBAF 
SFBAD LDA $B0 
BFBAF LDX $00 
SFBB1 STA XDC06 
STX XDC07 
LDA XDCOD 
LDA $19 
STA XDCOF 
LDA Z01 
EOR $08 
STA Z01 
AND $08 
RTS 



;move bit of current character into C 
; start with value for a 

;if a 1 to be sent, set value for a 1 

;TBL1 set to 
;TBH1 set to $60/$B0 

; force load, one-shot and Timer B 
;into CRB1 

; invert polarity of cassette write bit 

; indicate polarity in A and Z 
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4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 



;IRQ routine for cassette write, part 2 (at FBCD) 

;used for byte start cycle and each half cycle per data bit 



FBC8 38 
FBC9 66B6 
FBCB 303C 
FBCD A5A8 
FBCF D012 
FBD1 A910 
FBD3 A201 
FBD5 20B1FB 4204 
FBD8 D02F 4205 
FBDA E6A8 4206 
FBDC A5B6 4207 
FBDE 1029 4208 
FBEO 4C57FC 4209 
4210 
FBE3 A5A9 4211 
FBE5 D009 4212 
FBE7 20ADFB 4213 
FBEA D01D 4214 
FBEC E6A9 4215 
FBEE D019 4216 
FBFO 20A6FB 4217 
FBF3 D014 4218 
FBF5 A5A4 
FBF7 4901 
FBF9 85A4 
FBFB FOOF 
FBFD A5BD 
FBFF 4901 
FC01 85BD 
FC03 2901 
FC05 459B 
FC07 859B 
FC09 4CBCFE 4229 
4230 
FCOC 46BD 4231 
FCOE C6A3 4232 
FC10 A5A3 4233 
FC12 F03A 4234 
FC14 10F3 4235 
FC16 2097FB 4236 
FC19 58 4237 
FC1A A5A5 4238 
FC1C F012 
FC1E A200 
FC20 86D7 
FC22 C6A5 
FC24 A6BE 
FC26 E002 
FC28 D002 
FC2A 0980 
FC2C 85BD 
FC2E D0D9 
FC30 20D1FC 4249 
FC33 900A 4250 
FC35 D091 4251 
FC37 E6AD 4252 



BFBC8 SEC 

ROR ZB6 
BMI BFC09 

WFBCD LDA ZA8 

BNE BFBE3 
LDA $10 
LDX $01 
JSR SFBB1 
BNE BFC09 
INC ZA8 
LDA ZB6 
BPL BFC09 
JMP JFC57 



4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 



4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 



BFBE3 LDA 
BNE 
JSR 
BNE 
INC 
BNE 

BFBFO JSR 
BNE 
LDA 
EOR 
STA 
BEQ 
LDA 
EOR 
STA 
AND 
EOR 
STA 

BFC09 JMP 

BFCOC LSR 
DEC 
LDA 
BEQ 
BPL 

BFC16 JSR 
CLI 
LDA 
BEQ 
LDX 
STX 
DEC 
LDX 
CPX 
BNE 
ORA 

BFC2C STA 
BNE 

BFC30 JSR 
BCC 
BNE 
INC 



ZA9 

BFBFO 

SFBAD 

BFC09 

ZA9 

BFC09 

SFBA6 

BFC09 

ZA4 

$01 

ZA4 

BFCOC 

ZBD 

$01 

ZBD 

$01 

Z9B 

Z9B 

JFEBC 

ZBD 

ZA3 

ZA3 

BFC4E 

BFC09 

SFB97 

ZA5 

BFC30 

$00 

ZD7 

ZA5 

ZBE 

$02 

BFC2C 

$80 

ZBD 

BFC09 

SFCD1 

BFC3F 

BFBC8 

ZAD 



;set current byte pointer => 32K 

;JMP 

;if byte start cycle 1 



;set AX to 272 

; invert output and schedule timer 
;if output is zero again 
vindicate cycle 1 finished 
;if current byte pointer ■> 32K 

;switch to other cassette write IRQ 

;if byte start cycle 2 

; invert output and schedule timer 

;if output is zero again 

; increment count for 2 cycles per bit 

; invert output and schedule timer 
;if output is zero again 

; increment count for 2 cycles per bit 

;if cycle is complete 

; invert data bit for next cycle 

;add bit 
;to parity 

;and exit IRQ 

;if 2 cycles done, 
; decrement bit count 

; after byte, send parity bit 

;during byte, send next bit 

;at end of byte, reset variables 

; allow IRQ 

;if block header count 

;not zero 

; clear checksum 

; decrement header count 

;if phase 2 

;add 128 to count 

;and send count as data for header 

; return from IRQ 

;if end of data reached 

;do next byte 

;if beyond, waste time 

;if at end, set pointer beyond end 
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FC39 
FC3E 
FC3D 
FC3F 
FC4-1 
FC43 
FC45 
FC47 
FC49 
FC4C 
FC4E 
FC50 
FC52 
FC54 

FC57 
FC59 
FC5B 
FC5E 
FC60 
FC62 
FC64 
FC65 
FC66 



A5D7 

85BD 

BOCA 

AOOO 

B1AC 

85BD 

45D7 

85D7 

20DBFC 

DOEB 

A59B 

4901 

85BB 

4CBCFE 

C6BE 

D003 

20CAFC 

A950 

85A7 

A208 

78 

20BDFC 

DOEA 



4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 



LDA 
STA 
BCS 
BFC3F LDY 
LDA 
STA 
EOR 
STA 
JSR 
BHE 

BFC4E LDA 
EOR 
STA 

BFC54 JMP 



ZD7 

ZBD 

BFC09 

$00 

(2AC),Y 

ZBD 

ZD7 

ZD7 

SFCBB 

BFC09 

Z9B 

$01 

ZBD 

JFEBC 



JFC57 DEC ZBE 

BNE BFC5E 
JSR SFCCA 

BFC5E LDA $50 
STA ZA7 
LDX $08 
SEI 

JSR SFCBD 
BNE BFC54 



;get checksum 

; and send it 

; return from IRQ 

;get next byte to write 

;and move to output character buffer 

; compute checksum 

; advance address 

; return from IRQ 

;get parity bit 

; Invert it 

;put into output buffer 

; return from IRQ 

;decrement phase 

; if phase is 

;stop cassette operations 

; set # cycles per sync to 40 



;set IRQ vector 

; f or cassette write, part 1 

; return from IRQ 
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FC6A 
FC6C 
FC6F 
FC71 
FC73 
FC75 
FC78 
FC7A 
FC7C 
FC7E 
FC81 
FC82 
FC84 
FC86 
FC88 
FC8B 
FC8D 
FC8F 
FC91 



FC93 
FC94 
FC95 
FC98 
FC9A 
FC9D 
FCAO 
FCA2 
FCA5 
FCA8 
FCAB 
FCAD 
FCBO 
FCB3 
FCB6 
FCB7 



A978 

20AFFB 

DOE 3 

C6A7 

DODF 

2097FB 

C6AB 

10D8 

A20A 

20BDFC 

58 

E6AB 

A5BE 

F030 

208EFB 

A209 

86A5 

86B6 

D083 



08 

78 

AD11D0 

0910 

8D11D0 

20CAFC 

A97F 

8D0DDC 

20DDFD 

ADA002 

F009 

8D1503 

AD9F02 

8D1403 

28 

60 



4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 



;IRQ routine for cassette write, part 1 

; entered for each block copy and for end of block 

WFC6A LDA $78 

JSR BFBAF ; invert output and schedule Timer 

BNE BFC54 ;if output is zero again 

DEC ZA7 ; decrement cycle count per sync 

BNE BFC54 ;when zero, 

JSR SFB97 ;reset cassette read/write variables 

DEC ZAB ; decrement sync count per block 

BPL BFC54 ;if negative, 

LDX $0A ;set IRQ vector 

JSR SFCBD ;to other cassette write routine 

CLI ; enable IRQ 

INC ZAB ;sync count set to 

LDA ZBE ;if phase = 

BEQ BFCB8 ;go terminate 

JSR SFB8E ;move start of I/O area to current addr 

LDX $09 

STX ZA5 ;set block header count 

STX ZB6 ;and current byte pointer 

BNE BFC16 ;go write block 
» 
;switch from cassette IRQ to default IRQ 



SFC93 PHP 
SEI 
LDA 
0RA 
STA 
JSR 
LDA 
STA 
JSR 
LDA 
BEQ 
STA' 
LDA 
STA 

BFCB6 PLP 
RTS 



XD011 

$10 

XD011 

SFCCA 

$7F 

XDCOD 

SFDDD 

X02A0 

BFCB6 

X0315 

X029F 

X0314 



;save flags 
; disable IRQ 

;make screen visible again 

;stop cassette motor 

;clear mask for all IRQ's in ICR1 
;reset TA1 to 1/60 of a second 



; res tore standard IRQ vector 



; res tore flags 
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FCB8 2093FC 
FCBB F097 



FCBD BD93FD 
FCCO 8D1403 
FCC3 BD94FD 
FCC6 8D1503 
FCC9 60 



FCCA A501 
FCCC 0920 
FCCE 8501 
FCDO 60 



FCD1 38 
FCD2 A5AC 
FCD4 E5AE 
FCD6 A5AD 
FCD8 E5AF 
FCDA 60 



FCDB E6AC 
FCDD D002 
FCDF E6AD 
FCE1 60 



4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 



; terminate cassette I/O 

BFCB8 JSR SFC93 ; switch from cassette to default IRQ 
BEQ BFC54 ; return from IRQ 

;set IRQ vector depending upon X 

SFCBD LDA TFD9B-8.X ;move low byte of address 

STA X0314 ;into low byte of IRQ vector 
LDA TFD9B-7.X ;then do high byte 
STA X0315 
RTS 

;stop cassette motor 



SFCCA LDA Z01 
ORA $20 
STA Z01 
RTS 



;set bit 5 high in 6510 I/O register 
;to stop cassette motor 



; compare ZAC/D with ZAE/F 



SFCD1 SEC 

LDA ZAC 
SBC ZAE 
LDA ZAD 
SBC ZAF 
RTS 

; increment ZAC/D 

SFCDB INC ZAC 

BNE BFCE1 
INC ZAD 

BFCE1 RTS 



; compare low parts 

;then high parts 

;C is clear when ZAC/D is low 



; increment low 

;then high when necessary 
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FCE2 
FCE4 
FCE5 
FCE6 
FCE7 
FCEA 
FCEC 

FCEF 
FCF2 
FCF5 
FCF8 
FCFB 
FCFE 
FCFF 



FD02 
FD04 
FD07 
FDOA 
FDOC 
FDOD 
FDOF 



A2FF 

78 

9A 

D8 

2002FD 

D003 

6COO80 

8E16DO 

20A3FD 

2050FD 

2015FD 

205BFF 

58 

6C00A0 



A205 

BDOFFD 

DD0380 

D003 

CA 

DOF5 

60 



FD10 C3C2CD 



4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 



; Re set routine 

WFCE2 LDX $FF 
SEI 
TXS 
CLD 

JSR SFD02 
BNE BFCEF 
JMP (X8000) 

BFCEF STX XD016 
JSR SFDA3 
JSR SFD50 
JSR SFD15 
JSR JFF5B 
CLI 
JMP (XAOOO) 



;disable IRQ 
;set stack pointer 
;clear decimal mode 
;test for a cartridge 

;if found, execute cartridge Reset 

; clear RES bit in video chip 

; initialize I/O devices 

; initialize memory pointers 

;restore I/O vectors 

; initialize screen and keyboard 

; enable IRQ 

; begin execution 



; check for the presence of a cartridge 

SFD02 LDX $05 ;set length of key 

BFD04 LDA TFD10-1.X ; compare table contents 

CMP X8004-1.X ;to cartridge contents 

BNE BFDOF ;exit with Z clear upon mismatch 

DEX 

BNE BFD04 ; repeat for 5 characters 

BFDOF RTS ;Z set upon match 

» 

; cartridge key for autostart and warm start possibilities 

TFD10 .BY 'C+$80,'B+$80,'M+$80,'8 ) '0 
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FD15 A230 
FD17 AOFD 
FD19 18 



FD1A 


86C3 


FD1C 


84C4 


FD1E 


AOIF 


FD20 


B91403 


FD23 


B002 


FD25 


B1C3 


FD27 


91C3 


FD29 


991403 


FD2C 


88 


FD2D 


10F1 


FD2F 


60 



FD30 
FD32 
FD34 
FD36 
FD38 
FD3A 
FD3C 
FD3E 
FD40 
FD42 
FD44 
FD46 
FD48 
FD4A 
FD4C 
FD4E 



31EA 
66FE 
47FE 
4AF3 
91F2 
0EF2 
50F2 
33F3 
57F1 
CAF1 
EDF6 
3EF1 
2FF3 
66FE 
A5F4 
EDF5 



4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 



SFD15 LDX <TFD30 
LDY >TFD30 
CLC 



; restore I/O vectors 

;set XY to standard table 
;clear carry to use XY address 

;set I/O vectors depending on XY 

; store XY in temporary pointer 
;set count for move 



JFD1A STX ZC3 

STY ZC4 

LDY $1F 
BFD20 LDA X0314.Y 

BCS BFD27 

LDA (ZC3),Y 
BFD27 STA (ZC3),Y 

STA X0314.Y 

DEY 

BPL BFD20 

RTS 



;lf carry set, don't fetch from XY addr 
;move one byte 

;to I/O vector 

; repeat for 32 bytes 



-.vectors for Operating System at $0314-0333 



TFD30 .W WEA31 

.W WFE66 

.W WFE47 

.W WF34A 

.W WF291 

.W WF20E 

.W WF250 

.W WF333 

.W WF157 

.W WF1CA 

.W WF6ED 

.W WF13E 

.W WF32F 

.W WFE66 

.W WF4A5 

.W WF5ED 



;IRQ 

;BRK 

;NMI 

;0PEN 

; CLOSE 

;set input device 

;set output device 

; restore I/O 

; input 

; output 

;test Stop key 

;get 

; abort 1/0 
; unused (BRK) 
;load RAM 
;save RAM 
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FD50 
FD52 
FD53 
FD56 
FD59 
FD5C 
FD5D 
FD5F 
FD61 
FD63 
FD65 
FD67 
FD68 
FD6A 
FD6C 
FD6E 
FD70 
FD71 
FD73 
FD75 
FD77 
FD79 
FD7A 
FD7C 
FD7E 
FD80 
FD81 
FD83 
FD84 
FD86 
FD88 
FD89 
FD8A 
FD8C 
FD8D 
FD90 
FD92 
FD95 
FD97 
FD9A 



A900 

A8 

990200 

990002 

990003 

C8 

D0F4 

A23C 

A003 

86B2 

84B3 

A8 

A903 

85C2 

E6C2 

B1C1 

AA 

A955 

91C1 

D1C1 

D00F 

2A 

91C1 

D1C1 

D008 

8A 

91C1 

C8 

D0E8 

F0E4 

98 

AA 

A4C2 

18 

202DFE 

A908 

8D8202 

A904 

8D8802 

60 



FD9B 6AFC 
FD9D CDFB 
FD9F 31EA 
FDA1 2CF9 



4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 



; initialize memory pointers 



SFD50 LDA 
TAY 

BFD53 STA 
STA 
STA 
INY 
BNE 
LDX 
LDY 
SIX 
STY 
TAY 
LDA 
STA 

BFD6C INC 

BFD6E LDA 
TAX 
LDA 
STA 
CMP 
BNE 
ROL 
STA 
CMP 
BNE 
TXA 
STA 
INY 
BNE 
BEQ 

BFD88 TYA 
TAX 
LDY 
CLC 
JSR 
LDA 
STA 
LDA 
STA 
RTS 



$00 

Z02.Y 

X0200.Y 

X0300.Y 

BFD53 

$3C 

$03 

ZB2 

ZB3 

$03 
ZC2 
ZC2 
(ZC1),Y 

$55 

(ZC1),Y 

(ZC1),Y 

BFD88 

A 

(ZC1),Y 

(ZC1),Y 

BFD88 

(ZC1),Y 

BFD6E 
BFD6C 



ZC2 

JFE2D 

$08 

X0282 

$04 

X0288 



;IRQ vectors 



TFD9B 



.W WFC6A 

.W WFBCD 

.W WEA31 

.W WF92C 



; clear page 
;page 2 
;and page 3 



;set tape buffer pointer 



; initialize page for RAM test 

; continue RAM test on next memory page 

;save RAM contents 



;if $55 not't read back, then end of RAM 



;if $AA not read back, then end of RAM 

;else restore original contents 
;bump address 

; continue on same page if not overflow 
;else continue test on next page 



;set top of memory pointer from XY 
;set bottom of memory pointer 
; set screen memory page 



;X=$08, cassette write routine, part 1 
;X"$0A cassette write routine, part 2 
;X=$0C standard IRQ routine 
;X=$0E cassette read routine 
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FDA3 

FDA5 

FDA8 

FDAB 

FDAE 

FDBO 

FDB3 

FDB6 

FDB9 

FDBC 

FDBE 

FDC1 

FDC4 

FDC7 

FDC8 

FDCB 

FDCD 

FDDO 

FDD2 

FDD5 

FDD7 

FDD9 

FDDB 



A97F 

8D0DDC 

8DODDD 

8DOODC 

A908 

8D0EDC 

8DOEDD 

8DOFDC 

8DOFDD 

A200 

8E03DC 

8E03DD 

8E18D4 

CA 

8E02DC 

A907 

8D00DD 

A93F 

8D02DD 

A9E7 

8501 

A92F 

8500 



FDDD 
FDEO 
FDE2 
FDE4 
FDE7 
FDE9 

FDEC 
FDEE 
FDF1 
FDF3 
FDF6 



ADA602 

FOOA 

A925 

8D04DC 

A940 

4CF3FD 

A995 

8D04DC 

A942 

8D05DC 

4C6EFF 



FDF9 
FDFB 
FDFD 
FDFF 



FEOO 
FE02 
FE04 
FE06 



85B7 
86BB 
84BC 
60 



85B8 
86BA 
84B9 
60 



4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 



initialize I/O devices 



SFDA3 LDA $7F 

STA XDCOD 
STA XDDOD 
STA XDCOO 
LDA $08 
STA XDCOE 
STA XDDOE 
STA XDCOF 
STA XDDOF 
LDX $00 
STX XDC03 
STX XDD03 
STX XD418 
DEX 

STX XDC02 
LDA $07 
STA XDDOO 
LDA $3F 
STA XDD02 
LDA $E7 
STA Z01 
LDA $2F 
STA ZOO 



; clear all mask bits in ICR1 

;and in ICR2 
;set PA1 to $7F 

;one-shot mode in CRA1 
;and CRA2 
;and CRB1 
;and CRB2 



DDRB1 set to all inputs 
,DDRB2 set to all inputs 
kill volume in SID chip 



;DDRA1 set to all outputs 
;PA2 bits 0-2 set high 
;DDRA2 bits 0-5 set to outputs 
; initialize 6510 I/O register 
;and 6510 data direction register 
initialize TAL1/TAH1 for 1/60 of a second 



SFDDD LDA X02A6 
BEQ BFDEC 
LDA $25 
STA XDC04 
LDA $40 
JMP JFDF3 

BFDEC LDA $95 

STA XDC04 
LDA $42 

JFDF3 STA XDC05 
JMP JFF6E 



;if this is an Intl. machine, 

;use Intl value for 1/60 second delay 

;and store in TALI 

;high byte of value 

;go set high byte of timer 

; since this is US machine, use US value 

;for 1/60 second to set TALI 

;high byte of value 

;set TAH1 

;go set CRA1 for continuous timer IRQ s 



initialize file name parameters 



JFDF9 STA ZB7 
STX ZBB 
STY ZBC 
RTS 



;set # of characters in file name 
;set address of file name 
;+ high byte 



; initialize file parameters 



JFEOO STA ZB8 
STX ZBA 
STY ZB9 
RTS 



;set logical file 
;set current device 
;set secondary address 
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4533 ;read I/O status word 

4534 ; 

FE07 A5BA 4535 JFE07 LDA ZBA 

FE09 C902 4536 CMP $02 

FEOB DOOD 4537 BNE BFE1A 

FEOD AD9702 4538 LDA X0297 

FE10 48 4539 PHA 

FEU A900 4540 LDA $00 

FE13 8D9702 4541 STA X0297 

FE16 68 4542 PLA 

FE17 60 4543 RTS 



;if RS-232 device, 

;read RS-232 Status Register 



;then clear RS-232 Status Register 
;and restore original contents in A 



FE18 859D 



FE1A A590 



FE1C 0590 
FE1E 8590 
FE20 60 



FE21 8D8502 
FE24 60 



FE25 9006 
FE27 AE8302 
FE2A AC8402 
FE2D 8E8302 
FE30 8C8402 
FE33 60 



FE34 9006 
FE36 AE8102 
FE39 AC8202 
FE3C 8E8102 
FE3F 8C8202 
FE42 60 



4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 

4544 ; 

4545 ; control kernal messages 

4546 ; 

4547 JFE18 STA Z9D ;set direct/run mode ($80/$00) 

4548 ; 

4549 ;read ST 

4550 ; 

4551 BFE1A LDA Z90 ; fetch current ST 

4552 ; 

4553 ;add A to current ST 

4554 ; 

4555 SFE1C ORA Z90 ;add existing bits to A 

4556 STA Z90 ;and store new ST 

4557 RTS 

4558 ; 

4559 ;set timeout on serial bus 

4560 ; 

4561 JFE21 STA X0285 ; serial bus timeout flag (not used) 

4562 RTS 

4563 ; 

4564 ; read/set top of memory 

4565 ; 

4566 JFE25 BCC JFE2D ;if carry is clear, set pointers from XY 

4567 SFE27 LDX X0283 ;else fetch top of memory into XY 

4568 LDY X0284 

4569 JFE2D SIX X0283 ;set top of memory from X 

4570 STY X0284 ;and high byte from Y 

4571 RTS 

4572 ; 

4573 ; read/set bottom of memory 

4574 ; 

4575 JFE34 BCC BFE3C ;if carry is clear, set pointer from XY 

4576 LDX X0281 ;else fetch bottom of memory into XY 

4577 LDY X0282 

4578 BFE3C STX X0281 ;set low byte bottom of memory from X 

4579 STY X0282 ;and high byte from Y 

4580 RTS 
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FE43 
FE44 



78 
6C1803 



FE47 
FE48 
FE49 
FE4A 
FE4B 
FE4C 
FE4E 
FE51 
FE54 
FE56 
FE59 
FE5B 

FE5E 
FE61 
FE64 



48 

8A 

48 

98 

48 

A97F 

8D0DDD 

ACODDD 

301C 

2002FD 

D003 

6C0280 

20BCF6 
20E1FF 
DOOC 



FE66 
FE69 
FE6C 
FE6F 



2015FD 
20A3FD 
2018E5 
6C02AO 



4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 



;NMI entry 



WFE43 SEI 

JMP (X0318) 



; perform NMI (normally FE47) 
; standard NMI routine 

;save A on stack 
;save X on stack 
;save Y on stack 
; clear ICR2 IRQ mask bits 



WFE47 PHA 
TXA 
PHA 
TYA 
PHA 

LDA $7F 
STA XDDOD 
LDY XDDOD 
BMI BFE72 
JSR SFD02 
BNE BFE5E 
JMP (X8002) 

* 

BFE5E JSR BF6BC 
JSR SFFE1 
BNE BFE72 

t 

;BRK routine 

WFE66 JSR SFD15 
JSR SFDA3 
JSR SE518 
JMP (XA002) 



;lf no IRQ's were present 

; check for a cartridge 

;if cartridge present, 

; perform cartridge warm start 

;scan the keyboard 

; check for Stop key 

;and drop thru to BRK if depressed 



; restore I/O vectors 
initialize I/O devices 
; initialize screen and keyboard 
; perform warm start 



219 



4613 
4614 
FE72 98 4615 
FE73 2DA102 4616 
FE76 AA 4617 
FE77 2901 4618 
FE79 F028 4619 
FE7B AD00DD 4620 
FE7E 29FB 4621 
FE80 05B5 4622 
FE82 8D00DD 4623 
FE85 ADA102 4624 
FE88 8D0DDD 4625 
FE8B 8A 4626 
FE8C 2912 4627 
FE8E FOOD 4628 
FE90 2902 4629 
FE92 F006 4630 
FE94 20D6FE 4631 
FE97 4C9DFE 4632 
4633 
FE9A 2007FF 4634 
FE9D 20BBEE 4635 
FEAO 4CB6FE 4636 
4637 
FEA3 8A 4638 
FEA4 2902 4639 
FEA6 F006 4640 
FEA8 20D6FE 4641 
FEAB 4CB6FE 4642 
4643 
FEAE 8A 4644 
FEAF 2910 4645 
FEB1 F003 4646 
FEB3 2007FF 4647 
FEB6 ADA102 4648 
FEB9 8D0DDD 4649 



; Internal NMI 



BFE72 TYA 




AND 


X02A1 


TAX 




AND 


$01 


BEQ 


BFEA3 


LDA 


XDDOO 


AND 


$FB 


ORA 


ZB5 


STA 


XDDOO 


LDA 


X02A1 


STA 


XDDOD 


TXA 




AND 


$12 


BEQ 


BFE9D 


AND 


$02 


BEQ 


BFE9A 


JSR 


SFED6 


JMP 


BFE9D 



FEBC 68 
FEBD A8 
FEBE 68 
FEBF AA 
FECO 68 
FECI 40 



4650 
4651 
4652 
4653 
4654 
4655 



BFE9A JSR SFF07 

BFE9D JSR SEEBB 

JMP JFEB6 

BFEA3 TXA 

AND $02 
BEQ BFEAE 
JSR SFED6 
JMP JFEB6 

BFEAE TXA 

AND $10 

BEQ JFEB6 

JSR SFF07 
JFEB6 LDA X02A1 

STA XDDOD 
JFEBC PLA 

TAY 

PLA 

TAX 

PLA 

RTI 



;get ICR2 

;raask with ICR2 activity register 

;save results 

;if transmitting 

; clear RS-232 output data line 
;and add bit to be transmitted 
;and send it 

* use ICR2 activity register 
;to set ICR2 

;if not receiving/waiting receiver edge, 
;send next bit on serial bus 

;if not receiving, 

; input next bit on RS-232 

;then send next bit on RS-232 bus 

; schedule TB2 using baud rate factor 
;send next bit on RS-232 
;exit from NMI 



;if receiving data, 

; input next bit on RS-232, schedule TB2 

;exit from NMI 



;if waiting for receiver edge, 

; schedule TB2 using baud rate factor 

;use ICR2 activity register 

;to set ICR2 

;restore Y 

;restore X 
;restore A 
;and return from NMI 
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FEC2 C127 
FEC4 3E1A 
FEC6 C511 
FEC8 740E 
FECA EDOC 
FECC 4506 
FECE F002 
FEDO 4601 
FED2 B800 
FED4 7100 



4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
FED6 AD01DD 4674 
FED9 2901 4675 
FEDB 85A7 4676 
FEDD AD06DD 4677 
FEEO E91C 4678 
FEE2 6D9902 4679 
FEE5 8D06DD 4680 
F.EE8 AD07DD 4681 
FEEB 6D9A02 4682 
FEEE 8D07DD 4683 
FEF1 A911 4684 
FEF3 8D0FDD 4685 
FEF6 ADA102 4686 
FEF9 8D0DDD 4687 
FEFC A9FF 4688 
FEFE 8D06DD 4689 
FF01 8D07DD 4690 
FF04 4C59EF 4691 
4692 
4693 
4694 
FF07 AD9502 4695 
FFOA 8D06DD 4696 
FFOD AD9602 4697 
FF10 8D07DD 4698 
FF13 A911 4699 
FF15 8D0FDD 4700 
FF18 A912 4701 
FF1A 4DA102 4702 
FF1D 8DA102 4703 
FF20 A9FF 4704 
FF22 8D06DD 4705 
FF25 8D07DD 4706 
FF28 AE9802 4707 
FF2B 86A8 4708 
FF2D 60 4709 



Stable of baud rate factors based upon 

; ((clock frequency/baud rate/2)-100) 

;this table applies to US machine clock frequency 



TFEC2 .W $27C1 

.W $1A3E 

.W $11C5 

.W $0E74 

.W $0CED 

.W $0645 

.W $02F0 

.W $0146 

.W $00B8 

.W $0071 



50 baud 

75 

110 

134.5 

150 

300 

600 

1200 

1800 

2400 



; input next bit 


SFED6 LDA 


XDD01 


AND 


$01 


STA 


ZA7 


LDA 


XDD06 


SBC 


$1C 


ADC 


X0299 


STA 


XDD06 


LDA 


XDD07 


ADC 


X029A 


STA 


XDD07 


LDA 


$11 


STA 


XDDOF 


LDA 


X02A1 


STA 


XDDOD 


LDA 


$FF 


STA 


XDD06 


STA 


XDD07 


JMP 


JEF59 



on RS-232 bus and schedule TB2 



;mask bit read 

;and save in temporary storage area 

;use TAL2 

;and overhead 

;and baud rate full bit time 

;to reset TBL2 



;and TBH2 

;set force load + start TB2 bits in CRB2 

;set ICR2 from ICR2 activity register 

;set TBL2 

;and TBH2 to maximum value 

;add input bit to word being read 



; schedule TB2 using baud rate factor 



SFF07 LDA X0295 
STA XDD06 
LDA X0296 
STA XDD07 
LDA $11 
STA XDDOF 
LDA $12 
EOR X02A1 
STA X02A1 
LDA $FF 
STA XDD06 
STA XDD07 
LDX X0298 
STX ZA8 
RTS 



;move bit time 
;to TBL2 

;and TBH2 

;set force load and TB in CRB2 

; invert waiting for receiver edge and 
;receiving data bits in activity reg 

;set TBL2 to maximum value 
; set TBH2 to maximum value 

:set number of bits to send/receive 
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FF2E 
FF2F 
FF32 
FF33 
FF34 
FF35 
FF37 
FF3A 
FF3B 
FF3D 
FF40 



AA 

AD9602 

2A 

A8 

8A 

69C8 

8D9902 

98 

6900 

8D9A02 

60 



FF41 EA 
FF42 EA 

FF43 08 
FF44 68 
FF45 29EF 
FF47 48 



FF48 48 
FF49 8A 
FF4A 48 
FF4B 98 
FF4C 48 
FF4D BA 
FF4E BD0401 
FF51 2910 
FF53 F003 
FF55 6C1603 

FF58 6C1403 



FF5B 
FF5E 
FF61 
FF63 
FF66 
FF68 
FF6B 



FF6E 
FF70 
FF73 
FF76 
FF78 
FF7A 
FF7D 
FF80 



2018E5 

AD12D0 

DOFB 

AD19D0 

2901 

8DA602 

4CDDFD 



A981 

8D0DDC 

ADOEDC 

2980 

0911 

8D0EDC 

4C8EEE 

00 



4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 



j continuation of baud rate calcuation 



;multiply factor * 2 



;and add 200 

;to form baud rate 



SFF2E TAX 

LDA X0296 
ROL A 
TAY 
TXA 

ADC $C8 
STA X0299 
TYA 
ADC 
STA X029A 
RTS 

NOP 
NOP 

JFF43 PHP 
PLA 

AND $EF 
PHA 

IRQ entry point 



WFF48 PHA 
TXA 
PHA 
TYA 
PHA 
TSX 

LDA X0100+4.X ;check BRK bit 
AND $10 
BEQ BFF58 
JMP (X0316) ; perform BRK (normally FE66) 

BFF58 JMP (X0314) ;else IRQ (normally EA31) 

; addition to I/O device initialization 



; clear BRK status bit 



;save A on stack 
;save X on stack 
;save Y on stack 



JFF5B JSR SE518 
BFF5E LDA XD012 
BNE BFF5E 
LDA XD019 
AND $01 
STA X02A6 
JMP SFDDD 



; initialize screen and keyboard 

;wait for raster count to clear 
;use interrupt register 

;to set US/Intl machine flag (0=US) 
;set clock for 1/60 second IRQ's 



;end of scheduling TA for 1/60 second IRQ's 

JFF6E LDA $81 

STA XDCOD ;set TA mask in ICR1 

LDA XDCOE ;use CRA1 

AND $80 ;bit 7 (50/60 Hz flag) 

ORA $11 ;+ force load, continuous mode and TA1 

STA XDCOE ;to set CRA1 

JMP SEE8E ;set serial clock line high and return 

.BY $00 ; filler 
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4769 

4770 

FF81 4C5BFF 4771 

4772 
FF84 4CA3FD 4773 

4774 
FF87 4C50FD 4775 

4776 
FF8A 4C15FD 4777 

4778 
FF8D 4C1AFD 4779 

4780 
FF90 4C18FE 4781 

4782 
FF93 4CB9ED 4783 

4784 
FF96 4CC7ED 4785 

4786 
FF99 4C25FE 4787 

4788 
FF9C 4C34FE 4789 

4790 
FF9F 4C87EA 4791 

4792 
FFA2 4C21FE 4793 

4794 
FFA5 4C13EE 4795 

4796 
FFA8 4CDDED 4797 

4798 
FFAB 4CEFED 4799 

4800 
FFAE 4CFEED 4801 

4802 
FFB1 4C0CED 4803 

4804 
FFB4 4C09ED 4805 

4806 
FFB7 4C07FE 4807 

4808 
FFBA 4C00FE 4809 

4810 
FFBD 4CF9FD 4811 

4812 
FFCO 6C1A03 4813 

4814 
FFC3 6C1C03 4815 

4816 
FFC6 6C1E03 4817 

4818 
FFC9 6C2003 4819 

4820 
FFCC 6C2203 4821 

4822 
FFCF 6C2403 4823 

4824 
FFD2 6C2603 4825 

4826 
FFD5 4C9EF4 4827 

4828 



kertial vectors 
JMP JFF5B 
JMP SFDA3 
JMP SFD50 
JMP SFD15 
JMP JFD1A 
JMP JFE18 
JMP SEDB9 
JMP SEDC7 
SFF99 JMP JFE25 
SFF9C JMP JFE34 
JMP SEA87 
JMP JFE21 
JMP JEE13 
JMP JEDDD 
JMP SEDEF 
JMP SEDFE 
JMP SEDOC 
JMP SED09 
SFFB7 JMP JFE07 
SFFBA JMP JFEOO 
SFFBD JMP JFDF9 
SFFCO JMP (X031A) 
SFFC3 JMP (X031C) 
SFFC6 JMP (X031E) 
SFFC9 JMP (X0320) 
SFFCC JMP (X0322) 
SFFCF JMP (X0324) 
SFFD2 JMP (X0326) 
SFFD5 JMP JF49E 



•.initialize screen and keyboard 

; initialize I/O devices 

; initialize memory pointers 

;restore I/O vectorsces 

;set I/O vectors from XY 

; control kernal messages 

; send Secondary Address after Listen 

;send Secondary Address after Talk 

;read/set top of memory 

;read/set bottom of memory 

;scan keyboard 

;set timeout for serial bus 

; input byte on serial bus 

;output byte on serial bus 

;send Untalk on serial bus 

;send Unlisten on serial bus 

;send Listen on serial bus 

;send Talk on serial bus 

;read I/O status word 

;set file parameters 

;set file name parameters 

;open a file (F34A) 

;close a file (F291) 

;set input device (F20E) 

;set output device (F250) 

;restore 1/0 devices to default (F333) 

; input char on current device (F157) 

; output char to current device (F1CA) 

;load RAM from a device 
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FFD8 4CDDF5 
FFDB 4CE4F6 
FFDE 4CDDF6 
FFE1 6C2803 
FFE4 6C2A03 
FFE7 6C2C03 
FFEA 4C9BF6 
FFED 4C05E5 
FFFO 4COAE5 
FFF3 4COOE5 

FFF6 525242 



FFFA 43FE 
FFFC E2FC 
FFFE 48FF 



4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 



SFFD8 JMP JF5DD 
JMP JF6E4 
JMP JF6DD 



;save RAM to a device 
;set real time clock 
;read real time clock 



SFFE1 JMP (X0328) ;check Stop key (F6ED) 
SFFE4 JMP (X032A) ;get a character (F13E) 

JMP (X032C) ; close all channels and files (F32F) 
; increment real time clock 
;read organization of screen into XY 
;read/set XY cursor position 
;read base address of 1/0 devices 



SFFEA JMP JF69B 

JMP JE505 

JMP JE50A 

SFFF3 JMP JE500 

garbage 

.BY $52,$52,$42,$59 
6510 fixed vectors 



.W WFE43 
.W WFCE2 
.W WFF48 



;NMI vector 
;RESET vector 
;IRQ/BRK vector 
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BEOOB 

BEOOE 

BEOIE 

BE06C 

BE070 

BE07D 

BEOBE 

BEOD3 

BE0F9 

BE104 

BE109 

BE194 

BE195 

BE19E 

BE1A1 

BE1B5 

BE1D1 

BE20D 

BE23F 

BE29D 

BE2AO 

BE2AD 

BE316 

BE324 

BE337 

BE33D 

BE386 

BE391 

BE3A8 

BE3B9 

BE3E2 

BE421 

BE455 

BE4B6 

BE4E2 

BE4EB 

BE513 

BE54D 

BE555 

BE560 

BE570 

BE57C 

BE58D 

BE597 

BE5AA 

BE5B9 

BE5CA 

BE 5 CD 

BE5E7 

BE5F3 

BE5FE 

BE606 

BE60F 

BE63A 

BE64A 

BE650 

BE654 

BE65D 

BE66F 



EOOB 

EOOE 

EOIE 

E06C 

E070 

E07D 

EOBE 

EOD3 

EOF9 

E104 

E109 

E194 

E195 

E19E 

EIA1 

E1B5 

E1D1 

E20D 

E23F 

E29D 

E2AO 

E2AD 

E316 

E324 

E337 

E33D 

E386 

E391 

E3A8 

E3B9 

E3E2 

E421 

E455 

E4B6 

E4E2 

E4EB 

E513 

E54D 

E555 

E560 

E570 

E57C 

E58D 

E597 

E5AA 

E5B9 

E5CA 

E5CD 

E5E7 

E5F3 

E5FE' 

E606 

E60F 

E63A 

E64A 

E650 

E654 

E65D 

E66F 



333 
327 
343 
379 
396 
388 
410 
409 
470 
459 
465 
546 
539 
543 
554 
560 
537 
618 
647 
688 
691 
700 
756 
761 
770 
775 
833 
821 
838 
842 
876 
902 
941 
960 
985 
983 
1016 
1056 
1052 
1062 
1077 
1072 
1091 
1087 
1108 
1119 
1154 
1132 
1135 
1150 
1143 
1161 
1159 
1169 
1197 
1199 
1201 
1178 
1213 



474 478 482 486 520 587 



586 



578 
627 



727 



1151 1187 

1173 1177 
1202 
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BE672 


E672 1216 


BE674 


E674 1207 


BE682 


E682 1226 


BE690 


E690 1234 


BE699 


E699 1245 


BE69F 


E69F 1248 


BE6A8 


E6A8 1317 


BE6B0 


E6B0 1259 


BE6CD 


E6CD 1278 


BE6DA 


E6DA 1283 


BE6F4 


E6F4 1299 


BE6F7 


E6F7 1276 


BE700 


E700 1274 


BE70B 


E70B 1313 


BE72A 


E72A 1337 


BE731 


E731 1341 


BE73D 


E73D 1347 


BE73F 


E73F 1349 


BE745 


E745 1345 


BE74C 


E74C 1355 


BE759 


E759 1361 


BE762 


E762 1379 


BE77E 


E77E 1359 


BE785 


E785 1386 


BE78B 


E78B 1390 


BE792 


E792 1393 


BE7A8 


E7A8 1417 


BE7AA 


E7AA 1402 


BE7AD 


E7AD 1396 


BE7C0 


E7CO 1423 


BE7C8 


E7C8 1421 


BE7CB 


E7CB 1384 


BE7CE 


E7CE 1410 


BE7DC 


E7DC 1434 


BE7E3 


E7E3 1437 


BE7EA 


E7EA 1441 


BE7FE 


E7FE 1451 


BE805 


E805 1453 


BE80A 


E80A 1469 


BE826 


E826 1455 


BE829 


E829 1447 


BE82D 


E82D 1445 


BE832 


E832 1478 


BE847 


E847 1490 


BE84C 


E84C 1483 


BE854 


E854 1496 


BE864 


E864 1502 


BE86A 


E86A 1500 


BE871 


E871 1485 : 


BE874 


E874 1512 


BE880 


E880 1529 


BE888 


E888 1526 


BE8A5 


E8A5 1552 


BE8B0 


E8BO 1548 


BE8B7 


E8B7 1567 


BE8C2 


E8C2 1563 


BE8CA 


E8CA 1572 


BE8CD 


E8CD 1582 


BE8D6 


E8D6 1580 


BE8F6 


E8F6 1630 



1407 1425 1475 1506 1509 1514 1541 2007 2019 



1674 1708 



1418 



1492 1494 
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BE8FF 

BE913 

BE918 

BE922 

BE94D 

BE956 

BE981 

BE98F 

BE9A6 

BE9AB 

BE9BA 

BE9BF 

BE9D4 

BEA07 

BEA5C 

BEA61 

BEA71 

BEA79 

BEA7B 

BEAA8 

BEAAB 

BEAB3 

BEAC9 

BEACB 

BEACC 

BEADC 

BEAFO 

BEAFB 

BE BOD 

BEB17 

BEB26 

BEB42 

BEB64 

BEB6B 

BEB76 

BEC58 

BEC5B 

BEC5E 

BEC69 

BEC72 

BED20 

BED2E 

BED 50 

BED 5 5 

BED5A 

BED66 

BED7A 

BED7D 

BED9F 

BEDAD 

BEDBO 

BEDD6 

BEDE6 

BEDEB 

BEE03 

BEE09 

BEE1B 

BEE20 

BEE30 

BEE3E 



E8FF 

E913 

E918 

E922 

E94D 

E956 

E981 

E98F 

E9A6 

E9AB 

E9BA 

E9BF 

E9D4 

EA07 

EA5C 

EA61 

EA71 

EA79 

EA7B 

EAA8 

EAAB 

EAB3 

EAC9 

EACB 

EACC 

EADC 

EAFO 

EAFB 

EBOD 

EB17 

EB26 

EB42 

EB64 

EB6B 

EB76 

EC58 

EC5B 

EC5E 

EC69 

EC72 

ED20 

ED2E 

ED50 

EDS 5 

ED5A 

ED66 

ED7A 

ED7D 

ED9F 

EDAD 

EDBO 

EDD6 

EDE6 

EDEB 

EE03 

EE09 

EE1B 

EE20 

EE30 

EE3E 



1647 
1669 
1689 



1860 



1614 

1609 

1625 

1620 

1645 

1641 

1668 

1694 

1688 

1706 

1702 

1698 

1723 

1757 

1799 

840 1790 1792 

1811 

1816 

1818 

1875 

1852 

1870 

1858 

1863 

1854 

1868 

1883 

1840 

1890 1895 1897 1899 
1903 
1886 
1891 
1932 
1946 
1936 
2001 
2015 
2003 
2010 
2013 
2104 
2115 
2135 
2137 
2133 
2145 
2149 
2151 
2173 
2130 
2147 
2203 
2210 
2213 
2183 
2239 
2251 
2274 
2262 
2260 



1893 

1901 1905 1907 1912 1918 1922 1934 



1940 



2139 
2163 



2171 
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BEE47 


EE47 2265 




BEE56 


EE56 2263 




BEE5A 


EE5A 2279 2281 2289 




BEE67 


EE67 2285 2287 




BEE80 


EE80 2292 




BEEB6 


EEB6 2342 




BEEC8 


EEC8 2353 




BEEDl 


EED1 2375 2377 2387 




BEED7 


EED7 2359 




BEEE6 


EEE6 2379 2382 2384 




BEEE7 


EEE7 2371 2381 2383 




BEEF2 


EEF2 2367 




BEEF6 


EEF6 2369 




BEEFC 


EEFC 2368 




BEFOO 


EFOO 2350 




BEF06 


EF06 2349 2565 




BEF13 


EF13 2390 




BEF2E 


EF2E 2392 




BEF31 


EF31 2393 




BEF39 


EF39 2401 




BEF54 


EF54 2427 




BEF58 


EF58 2429 




BEF6D 


EF6D 2457 2495 2499 2501 




BEF6E 


EF6E 2494 




BEF70 


EF70 2440 




BEF7E 


EF7E 2472 2511 




BEF90 


EF90 2437 




BEF97 


EF97 2439 




BEFA9 


EFA9 2490 




BEFB1 


EFB1 2487 




BEFC5 


EFC5 2498 




BEFCA 


EFCA 2481 




BEFCD 


EFCD 2515 




BEFDO 


EFDO 2514 




BEFDB 


EFDB 2452 




BEFF2 


EFF2 2529 




BEFF9 


EFF9 2531 




BF006 


F006 2537 




BFOOD 


FOOD 2525 2580 3135 




BF012 


F012 2522 2526 2536 




BF014 


F014 2549 




BF04C 


F04C 2556 




BF062 


F062 2584 




BF070 


F070 2590 




BF077 


F077 2597 




BF07D 


F07D 2575 2577 




BF084 


F084 2581 




BF09C 


F09C 2606 




BFOAA 


FOAA 2625 




BFOBB 


FOBB 2622 




BF12F 


F12F 2658 3320 3324 3445 3534 


3565 3695 3700 


BF13C 


F13C 2651 




BF14A 


F14A 2665 




BF155 


F155 2667 




BF166 


F166 2672 2682 




BF173 


F173 2690 




BF18D 
BF193 


F18D 2705 
F193 2704 




BF196 
BF1A9 


F196 2701 
F1A9 2722 
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BF1AD F1AD 2696 

BF1B1 F1B1 2750 

BF1B3 F1B3 2747 

BF1B4 F1B4 2724 2745 

BF1B5 F1B5 2733 

BF1B8 F1B8 2698 2751 

BF1D5 F1D5 2758 

BF1DB F1DB 2762 

BF1F8 F1F8 2775_ 

BF1FD F1FD 2777' 

BF207 F207 2791 

BF208 F208 2773 

BF216 F216 2801 

BF22A F22A 2811 

BF233 F233 2806 2808 2816 2835 

BF237 F237 2809 

BF245 F245 2828 

BF258 F258 2841 

BF25F F25F 2858 

BF262 F262 2846 

BF26F F26F 2853 

BF275 F275 2850 2874 

BF279 F279 2851 

BF286 F286 2868 

BF289 F289 2870 

BF298 F298 2880 

BF2BA F2BA 2899 

BF2BF F2BF 2902 

BF2C8 F2C8 2893 

BF2E0 F2E0 2919 

BF2EE F2EE 2891 

BF2F1 F2F1 2888 2890 2913 2926 2929 

BF30D F30D 2941 

BF316 F316 2961 

BF32E F32E 2959 

BF33C F33C 2983 

BF343 F343 2986 

BF351 F351 2996 

BF359 F359 3000 

BF362 F362 3005 

BF384 F384 3020 

BF38B F38B 3024 

BF393 F393 3030 

BF3AC F3AC 3049 

BF3AF F3AF 3040 

BF3B8 F3B8 3035 

BF3C2 F3C2 3042 

BF3D1 F3D1 3060 

BF3D3 F3D3 3017 

BF3D4 F3D4 3037 

BF3F6 F3F6 3083 

BF3FC F3FC 3095 

BF406 F406 3089 

BF40F F40F 3108 

BF41D F41D 3103 

BF43A F43A 3117 

BF446 F446 3113 

BF45C F45C 3131 3134 

BF474 F474 3143 

BF4AF F4AF 3186 



3048 

3019 3022 3072 3074 
3043 3047 3054 
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BF4B2 


F4B2 


3182 




BF4BF 


F4BF 


3189 




BF4F0 


F4F0 


3210 




BF4F3 


F4F3 


3228 


3243 


BF501 


F501 


3220 




BF51C 


F51C 


3231 




BF51E 


F51E 


3234 




BF524 


F524 


3240 




BF530 


F530 


3206 


3265 3268 


BF533 


F533 


3187 




BF539 


F539 


3250 




BF541 


F541 


3254 




BF549 


F549 


3275 




BF556 


F556 


3261 




BF55D 


F55D 


3263 




BF56C 


F56C 


3285 




BF579 


F579 


3274 




BF57D 


F57D 


3283 




BF5A9 


F5A9 


3246 




BF5AE 


F5AE 


3258 


3264 3267 3272 


BF5C7 


F5C7 


3332 




BF5D1 


F5D1 


3318 


3322 3326 


BF5DA 


F5DA 


3339 




BF5F1 


F5F1 


3361 


3417 


BF5F4 


F5F4 


3357 




BF605 


F605 


3366 




BF624 


F624 


3393 




BF63A 


F63A 


3386 




BF63F 


F63F 


3382 




BF657 


F657 


3399 




BF659 


F659 


3362 




BF65F 


F65F 


3411 




BF676 


F676 


3424 




BF68D 


F68D 


3433 




BF68E 


F68E 


3419 


3428 3430 3443 


BF6A7 


F6A7 


3452 


3454 


BF6BC 


F6BC 


3463 


3469 3787 4602 


BF6CC 


F6CC 


3476 




BF6DA 


F6DA 


3471 




BF6DC 


F6DC 


3479 




BF6FA 


F6FA 


3503 




BF729 


F729 


3533 




BF74B 


F74B 


3556 


3558 


BF757 


F757 


3571 




BF761 


F761 






BF767 


F767 


3563 




BF769 


F769 


3550 


3554 


BF781 


F781 


3596 




BF7A5 


F7A5 


3623 




BF7B7 


F7B7 


3617 




BF7CF 


F7CF 


3583 




BF7F7 


F7F7 


3678 




BF80B 


F80B 


3670 




BF80C 


F80C 


3664 




BF81E 


F81E 


3716 




BF821 


F821 


3698 




BF836 


F836 


3693 


3706 3714 


BF86E 


F86E 


3725 




BF875 


F875 


3736 




BF8B5 


F8B5 


3780 
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BF8B7 F8B7 3778 

BF8DC F8DC 3744 3785 

BF8E1 F8E1 3794 

BF8F7 F8F7 3816 

BF8FE F8FE 3825 

BF92A F92A 3836 3837 3839 

BF92C F92C 3853 

BF969 F969 3875 

BF988 F988 3879 3925 

BF98B F98B 3893 3929 3943 

BF993 F993 3884 

BF997 F997 3889 3969 

BF999 F999 3901 

BF9AC F9AC 3873 3897 3899 3945 3947 3949 

BF9BC F9BC 3917 

BF9C9 F9C9 3956 

BF9D2 F9D2 3914 3919 3954 

BF9D5 F9D5 3911 

BF9DE F9DE 3934 

BF9E0 F9E0 3933 

BF9F7 F9F7 3924 3941 

BFA18 FA18 3964 

BFA1F FA1F 3966 3968 

BFA44 FA44 3981 

BFA53 FA53 3992 

BFA5D FA5D 3983 

BFA70 FA70 4011 

BFA86 FA86 4017 

BFA8A FA8A 4020 4023 4031 4033 4044 4050 4053 

BFA8D FA8D 4015 

BFAA3 FAA3 4037 

BFAA9 FAA9 4029 

BFABA FABA 4038 4040 

BFACO FACO 4028 

BFACE FACE 4055 

BFAD6 FAD6 4062 

BFAEB FAEB 4069 4073 

BFB08 FB08 4067 

BFB2F FB2F 4103 

BFB33 FB33 4080 

BFB3A FB3A 4077 4089 4111 

BFB43 FB43 4093 4096 4099 4107 4114 4116 

BFB5C FB5C 4130 

BFB68 FB68 4133 

BFB72 FB72 4147 

BFB8B FB8B 4121 4135 4137 4150 

BFBAF FBAF 4179 4283 

BFBC8 FBC8 4251 

BFBE3 FBE3 4201 

BFBFO FBFO 4212 

BFC09 FC09 4199 4205 4208 4214 4216 4218 4235 4248 4255 4262 

BFCOC FCOC 4222 

BFC16 FC16 4300 

BFC2C FC2C 4245 

BFC30 FC30 4239 

BFC3F FC3F 4250 

BFC4E FC4E 4234 

BFC54 FC54 4276 4284 4286 4289 4324 

BFC5E FC5E 4269 

BFCB6 FCB6 4314 
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BFCB8 


FCB8 


4295 






BFCE1 


FCE1 


4353 






BFCEF 


FCEF 


4364 






BFD04 


FD04 


4382 






BFDOF 


FDOF 


4380 






BFD20 


FD20 


4406 






BFD27 


FD27 


4401 






BFD53 


FD53 


4436 






BFD6C 


FD6C 


4459 






BFD6E 


FD6E 


4458 






BFD88 


FD88 


4450 


4454 




BFDEC 


FDEC 


4507 






BFE1A 


FE1A 


4537 






BFE3C 


FE3C 


4575 






BFE5E 


FE5E 


4599 






BFE72 


FE72 


4597 


4604 




BFE9A 


FE9A 


4630 






BFE9D 


FE9D 


4628 


4632 




BFEA3 


FEA3 


4619 






BFEAE 


FEAE 


4640 






BFF58 


FF58 


4743 






BFF5E 


FF5E 


4752 






JE043 


E043 


704 


767 




JEOE3 


EOE3 


426 






JE500 


E500 


4847 






JE505 


E505 


4843 






JE50A 


E50A 


4845 






JE566 


E566 


1096 


1394 




JE632 


E632 


2687 


2694 




JE691 


E691 


1438 






JE693 


E693 


1352 






JE697 


E697 


1356 


1387 1480 




JE773 


E773 


1363 






JE7D4 


E7D4 


1338 






JE891 


E891 


1342 


1442 




JE958 


E958 


1709 






JE967 


E967 


1279 


1665 




JEAEO 


EAEO 


1953 






JEC44 


EC44 


1428 






JEC4F 


EC4F 


1518 


1998 




JEDB2 


EDB2 


2267 






JEDDD 


EDDD 


2764 


3092 3378 3380 3384 


4797 


JEE13 


EE13 


2740 


3201 3207 3223 4795 




JEF3B 


EF3B 


2467 


2564 2593 




JEF59 


EF59 


4691 






JEFE1 


EFE1 


2854 






JF04D 


F04D 


2812 






JF12B 


F12B 


3341 






JF1FC 


F1FC 


2796 






JF248 


F248 


2830 






JF409 


F409 


3025 






JF440 


F440 


3120 






JF47D 


F47D 


2907 


3148 




JF49E 


F49E 


4827 






JF5C1 


F5C1 


3446 






JF5DD 


F5DD 


4829 






JF633 


F633 


3221 






JF654 


F654 


3096 






JF69B 


F69B 


4841 






JF6DD 


F6DD 


4833 
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JF6E4 

JF6FB 

JF6FE 

JF701 

JF704 

JF707 

JF70A 

JF70D 

JF710 

JF713 

JF8BE 

JFA10 

JFA60 

JFB48 

JFB4A 

JFC57 

JFD1A 

JFDF3 

JFDF9 

JFEOO 

JFE07 

JFE18 

JFE21 

JFE25 

JFE2D 

JFE34 

JFEB6 

JFEBC 

JFF43 

JFF5B 

JFF6E 

SE059 

SE05D 

SEOF6 

SE1D4 

SE20O 

SE206 
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firms 9362 2396 3991 4016 4030 4054 4622 

00B 2351 403 4001 4032 4075 4076 4109 4110 4198 4207 4299 
00B7 3039 3073 3088 3094 3102 3188 3260 3321 3325 3331 3365 3616 
3669 4521 

S = f£ SS 32 i sj ». S j »i -g ~j 3™ .3 

OOBA 2805 2845 2887 2969 3015 3077 3181 3197 3356 3371 3400 4529 



ZAF 



ZB2 



ZB4 

ZB5 
ZB6 
ZB7 



ZB9 

ZBA 

ZBB 
ZBC 
ZBD 

ZBE 



ZC1 

ZC2 
ZC3 
ZC4 



ZDO 
ZD1 



ZD4 
ZD5 
ZD6 



ZD7 



4535 
OOBB 3091 3104 3328 3618 3671 4522 



ZBD OOBD 2356 2357 2370 2380 2395 3998 4036 4071 4104 4118 4149 4176 
4223 4225 4231 4247 4254 4258 4265 
OOBE 3769 4010 4018 4128 4131 4136 4243 4268 4294 
ZBF OOBF 3958 3997 
fci OOa 3304 334-9 3586 3600 3634 3651 4159 4445 4448 4449 4452 4453 

00C2 3306 3351 3584 3603 3636 3656 4157 4443 4444 4462 
00C3 3172 3211 3279 3298 3303 4397 4402 4403 
00C4 3173 3213 3282 3301 3305 4398 

fc6 00C6 U18 U20 1129 1146 1648 1910 1920 1925 2666 3506 

ZC7 00C7 1244 1391 1498 1537 

ZC8 00C8 1163 1176 1206 2693 

ZC9 00C9 1168 1172 1522 1604 2686 

ZCA OOCA 1174 2684 

ZCB OOCB 1836 1864 1879 1913 

ZCC OOCC 1043 1130 1789 

ZC D OOCD 1042 1764 1791 1794 

ZCE OOCE 1136 1801 1806 

ZCF OOCF 1029 1134 1139 1796 1800 

IZ 1083 U57 ll92 U70 1372 1381 1449 1460 1462 1471 1719 1740 
1753 1771 1778 1798 

IS Zl \Z ISt \Z 1070 1075 1166 1175 1191 1204 1271 1273 1307 

13U 1322 1335 1367 1399 1406 1422 1452 1468 1487 1491 1505 

1539 1547 1562 1770 1795 2683 

00D4 1167 1200 1235 1237 1260 1385 1444 1538 

nrms 1092 1155 1272 1294 1297 1321 1378 1401 1416 1448 1457 2692 

Zft 017 lo20 1065 069 1170 1281 1285 1286 1304 1312 1319 1403 

° [III H19 H84 1486 1523 1530 1555 1570 1573 1603 1631 1649 

00D7 U93 ll" 5 HH 1219 1224 1328 1336 3912 3940 3957 4241 4253 



4259 4260 

£ SSS 1- lltl I- I0I8 1^6 1^7 Hit 1SS 1292 1298 1528 1617 
1622 1629 1664 1701 1741 
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ZDA OODA 1612 1619 1699 1704 

ZF1 00F1 1626 1628 

ZF4 00F4 1783 ^ "" ^ "" U66 W3 1U1 1773 1779 1803 

ZF5 00F5 1843 1856 1880 1950 

ZF6 00F6 1845 1952 

ZF7 00F7 2491 2609 3146 

ZF8 00F8 2898 2905 3142 3145 

ZF9 00F9 2402 2553 3151 

ZFA OOFA 2901 2906 3147 3150 



The End 
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